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