# $Id: broken.test 1212149 2011-12-08 21:57:35Z mxmanghi $

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-existent command
broken

puts -nonewline "
"

}"<HR>
<P><B>OUTPUT BUFFER:</B></P>
namespace eval request {
puts -nonewline ""

# non-existent command
broken

puts -nonewline "
"

}

</PRE>}

