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 -r1.71.2.43 -r1.71.2.44 --- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl 1 Jul 2021 16:28:05 -0000 1.71.2.43 +++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl 1 Jul 2021 16:33:52 -0000 1.71.2.44 @@ -1021,6 +1021,7 @@ "../.." "../../" "../../g" + "../../g/" "/foo/" "/foo/bar" "/foo/bar/" @@ -1040,7 +1041,6 @@ "-.~_!$&'()*+,;=:%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"]