| # $Id$ |
| |
| set testfilename1 broken.rvt |
| |
| ::tcltest::test broken-1.1 {error page test} { |
| apachetest::start {} {} { |
| catch { |
| set page [::http::geturl "${urlbase}$testfilename1"] |
| set match [string trim [::http::data $page]] |
| } |
| } |
| set match |
| } {<pre>invalid command name "broken" |
| while executing |
| "broken" |
| (in namespace eval "::request" script line 4) |
| invoked from within |
| "namespace eval ::request $script" |
| ("::try" body line 12)<hr/><p>OUTPUT BUFFER:</p>puts -nonewline "" |
| |
| # non-existent command |
| broken |
| |
| puts -nonewline " |
| " |
| </pre>} |