update test scripts

demo/lang/tcl/2_webpage_extract.tl

@@ -7,7 +7,7 @@ pid=0
 
 1. Load web page from url http://xxx
 2. Retrieve img element zt-logo.png in html
-3. Check img exist >> `必应`
+3. Check img exist >> `Apple`
 
 }
 
@@ -16,16 +16,12 @@ package require tls
 
 http::register https 443 tls::socket
 
-set url https://cn.bing.com
+set url https://www.apple.com
 
 set http [::http::geturl $url]
 set html [::http::data $http]
 
 puts "$html"
 
-regexp -- {<title>(.*?)>} $html match elem
-puts "$elem"
-
-set a abc
-set b 测试
-puts "$a $b"
+regexp -- {<title>(.*?)</title>} $html match title
+puts "$title"