tests/hello.test

# $Id$

set testfilename1 hello.rvt

::tcltest::test hello-1.1 {hello world test} {
    set page [::http::geturl "${urlbase}$testfilename1"]
    regexp -line {^Hello, World$} [::http::data $page] match
    ::http::cleanup $page
    set match
} {Hello, World}

::tcltest::test i18n-1.1 {I18N test} {
    set page [::http::geturl "${urlbase}$testfilename1"]
    regexp -line {^¡ À È Ì Ò Ù - El Burro Sabe Más Que Tú!$} [::http::data $page] match
    ::http::cleanup $page
    set match
} {¡ À È Ì Ò Ù - El Burro Sabe Más Que Tú!}