Index: openacs-4/packages/acs-tcl/tcl/test/00-icanuse-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/Attic/00-icanuse-procs.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-tcl/tcl/test/00-icanuse-procs.tcl	14 Jan 2021 14:09:03 -0000	1.1.2.1
@@ -0,0 +1,49 @@
+ad_library {
+
+    Test api defined in tcl/00-icanuse-procs.tcl
+
+}
+
+aa_register_case \
+    -cats { api } \
+    -procs {
+        acs::cmd_has_subcommand
+    } \
+    acs__command_has_subcommand {
+
+        Check whether we can detect if a command has a subcommand.
+
+    } {
+        set flags {
+            bytelength
+            cat
+            compare
+            equal
+            first
+            index
+            is
+            last
+            length
+            map
+            match
+            range
+            repeat
+            replace
+            reverse
+            tolower
+            totitle
+            toupper
+            trim
+            trimleft
+            trimright
+            wordend
+            wordstart
+        }
+
+        foreach flag $flags {
+            aa_true "string flag '$flag' is recognized" [acs::cmd_has_subcommand string $flag]
+        }
+
+        set flag [ad_generate_random_string]
+        aa_false "string has no flag called '$flag'" [acs::cmd_has_subcommand string $flag]
+    }