update test scripts

9b6af340 · aaronchen2k2k · 57a53f43 · 9b6af340
隐藏空白更改
内联并排

Showing with 3 addition and 1 deletion

demo/lang/tcl/2_webpage_extract.tl demo/lang/tcl/2_webpage_extract.tl +3 -1

未找到文件。
--- a/demo/lang/tcl/2_webpage_extract.tl
+++ b/demo/lang/tcl/2_webpage_extract.tl
@@ -16,10 +16,12 @@ package require tls

 http::register https 443 tls::socket

-set url https://cn.bing.com
+set url https://us.bing.com

 set http [::http::geturl $url]
 set html [::http::data $http]

+puts "$html"
+
 regexp -- {<title>(.*?)<} $html match elem
 puts "$elem"