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.61 -r1.62
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	17 Sep 2018 18:12:52 -0000	1.61
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	17 Sep 2018 18:27:17 -0000	1.62
@@ -812,6 +812,31 @@
 }
 
 aa_register_case \
+    -cats {api smoke production_safe} \
+    -procs util_complete_url_p \
+    util__complete_url_p {
+
+        Test util_complete_url_p
+
+        @creation-date 2018-09-17
+        @author Héctor Romojaro <hector.romojaro@gmail.com>
+} {
+    foreach url {
+        ""
+        "/test"
+        ":/test"
+    } {
+        aa_false $url [util_complete_url_p $url]
+    }
+    foreach url {
+        "http://test"
+        "ftp://test"
+    } {
+        aa_true $url [util_complete_url_p $url]
+    }
+}
+
+aa_register_case \
     -cats {api} \
     -procs util_url_valid_p \
     acs_tcl__util_url_valid_p {