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