Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl,v
diff -u -N -r1.71.2.42 -r1.71.2.43
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	1 Jul 2021 13:52:11 -0000	1.71.2.42
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	1 Jul 2021 16:28:05 -0000	1.71.2.43
@@ -969,10 +969,6 @@
         "http://##"
         "http://##/"
         "http://foo.bar?q=Spaces should be encoded"
-        "//"
-        "//a"
-        "///a"
-        "///"
         "http:///a"
         "rdar://1234"
         "h://test"
@@ -983,6 +979,13 @@
         "http://.www.foo.bar/"
         "http://.www.foo.bar./"
         "la la la"
+        "http:// la.com"
+        {http://$la.com}
+        "http:///la.com"
+        "http://.la.com"
+        "http://?la.com"
+        "http://#la.com"
+        "http://a "
     } {
         aa_false "Invalid web URL $url"                     [util_url_valid_p "$url"]
         aa_false "Invalid web URL $url (relative allowed)"   [util_url_valid_p -relative "$url"]
@@ -991,8 +994,33 @@
     # Relative URLs
     #
     foreach url {
+        ""
         "/"
+        "//"
+        "//a"
+        "///a"
+        "///"
+        "?a"
+        "a:h"
+        "./a"
+        "g?y"
+        "g?y/./x"
         "foo"
+        "#s"
+        "g#s"
+        "g#s/./x"
+        "g?y#s"
+        ";x"
+        "g;x"
+        "g;x?y#s"
+        "."
+        "./"
+        ".."
+        "../"
+        "../g"
+        "../.."
+        "../../"
+        "../../g"
         "/foo/"
         "/foo/bar"
         "/foo/bar/"
@@ -1012,6 +1040,7 @@
         "-.~_!$&'()*+,;=:%40:80%2f::::::@example.com"
         "no-protocol"
         "/relative"
+
     } {
         aa_false "Invalid web URL $url"                 [util_url_valid_p "$url"]
         aa_true "Valid web URL $url (relative allowed)" [util_url_valid_p -relative "$url"]