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.60 -r1.61
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	17 Sep 2018 17:40:35 -0000	1.60
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	17 Sep 2018 18:12:52 -0000	1.61
@@ -794,6 +794,24 @@
 }
 
 aa_register_case \
+    -cats {api smoke production_safe} \
+    -procs util_absolute_path_p \
+    util__absolute_path_p {
+
+        Test util_absolute_path_p
+
+        @creation-date 2018-09-17
+        @author Héctor Romojaro <hector.romojaro@gmail.com>
+} {
+    aa_false "Empty value" [util_absolute_path_p {}]
+    aa_false "blablabla" [util_absolute_path_p blablabla]
+    aa_false "bla/bla/bla/" [util_absolute_path_p bla/bla/bla]
+    aa_true "Only /" [util_absolute_path_p /]
+    aa_true "/blablabla" [util_absolute_path_p /blablabla]
+    aa_true "/bla/bla/bla/" [util_absolute_path_p /bla/bla/bla]
+}
+
+aa_register_case \
     -cats {api} \
     -procs util_url_valid_p \
     acs_tcl__util_url_valid_p {