# $Id$ | |
set testfilename1 parse.rvt | |
::tcltest::test parse-1.1 {Parse command} { | |
set page [ ::http::geturl "${urlbase}$testfilename1" ] | |
::http::data $page | |
} {<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> | |
<html> | |
<head> | |
<title>Parse Test</title> | |
</head> | |
<body> | |
<h1>Parse Test</h1> | |
Hello, World | |
¡ À È Ì Ò Ù - El Burro Sabe Más Que Tú! | |
<p>ÆüËܸì(EUC-JP Japanese text)</p> | |
</body> | |
</html>} |