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.62 -r1.63 --- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl 17 Sep 2018 18:27:17 -0000 1.62 +++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl 17 Sep 2018 18:30:51 -0000 1.63 @@ -803,12 +803,20 @@ @creation-date 2018-09-17 @author Héctor Romojaro } { - 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] + foreach path { + "" + "blablabla" + "bla/bla/bla/" + } { + aa_false $path [util_absolute_path_p $path] + } + foreach path { + "/" + "/blablabla" + "/bla/bla/bla/" + } { + aa_true $path [util_absolute_path_p $path] + } } aa_register_case \