From 9b6af3401c63cea1c000398fd6b4955c2d178ab6 Mon Sep 17 00:00:00 2001
From: aaron <462826@qq.com>
Date: Mon, 10 Oct 2022 14:37:53 +0800
Subject: [PATCH] update test scripts

---
 demo/lang/tcl/2_webpage_extract.tl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/demo/lang/tcl/2_webpage_extract.tl b/demo/lang/tcl/2_webpage_extract.tl
index 31138a9e..a4a35183 100755
--- 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"
-- 
GitLab