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 >> `Apple`
+3. Check img exist >> `Bing images`
 
 }
 
@@ -16,7 +16,7 @@ package require tls
 
 http::register https 443 tls::socket
 
-set url https://www.apple.com
+set url https://cn.bing.com/images/trending
 
 set http [::http::geturl $url]
 set html [::http::data $http]