# $Id$
set testfilename1 parse.rvt
::tcltest::test parse-1.1 {Parse command} {
set page [ ::http::geturl "${urlbase}$testfilename1" ]
::http::data $page
} {
Parse Test
Parse Test
Hello, World
¡ À È Ì Ò Ù - El Burro Sabe Más Que Tú!
ÆüËܸì(EUC-JP Japanese text)
}
set testfilename2 parsestring.rvt
::tcltest::test parse-1.2 {Parse command} {
set page [ ::http::geturl "${urlbase}$testfilename2" ]
::http::data $page
} {
Parse String Test
Parse String Test
Hello, World
¡ À È Ì Ò Ù - El Burro Sabe Más Que Tú!
ÆüËܸì(EUC-JP Japanese text)
}