update test scripts

demo/lang/tcl/2_webpage_extract.tl

@@ -23,5 +23,5 @@ set html [::http::data $http]
 
 puts "$html"
 
-regexp -- {<title>(.*?)<} $html match elem
+regexp -- {<title>(.*?)</title>} $html match elem
 puts "$elem"