# $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>}