| # $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> |
| <HR>invalid command name "broken" |
| while executing |
| "broken" |
| (in namespace eval "::request" script line 5) |
| invoked from within |
| "namespace eval request { |
| puts -nonewline "" |
| |
| # non-existant command |
| broken |
| |
| puts -nonewline " |
| " |
| |
| }"<HR> |
| <P><B>OUTPUT BUFFER:</B></P> |
| namespace eval request { |
| puts -nonewline "" |
| |
| # non-existant command |
| broken |
| |
| puts -nonewline " |
| " |
| |
| } |
| |
| </PRE>} |
| |