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.71.2.46 -r1.71.2.47
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	19 Oct 2021 09:07:32 -0000	1.71.2.46
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	24 Jan 2022 18:24:09 -0000	1.71.2.47
@@ -1290,6 +1290,40 @@
     aa_equals "No arguments" [util::interval_pretty] ""
 }
 
+aa_register_case \
+    -cats {api smoke production_safe} \
+    -procs {
+        ::acs::icanuse
+        ::acs::register_icanuse
+    } acs_icanuse {
+        Test the acs::icanuse interface
+
+        @author Gustaf Neumann
+    } {
+        aa_run_with_teardown \
+            -test_code {
+                set label [ad_generate_random_string]
+                #
+                # The random label should not exist
+                #
+                aa_true "can i use a random string?" {[acs::icanuse $label] == 0}
+                #
+                # Register the label
+                #
+                ::acs::register_icanuse $label 1
+                #
+                # Now we should be able to use it.
+                #
+                aa_true "can i use a random string?" [acs::icanuse $label]
+
+
+            } \
+            -teardown_code {
+                unset ::acs::caniuse($label)
+            }
+    }
+
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl,v
diff -u -N -r1.20.2.21 -r1.20.2.22
--- openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	13 Jan 2022 10:35:32 -0000	1.20.2.21
+++ openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	24 Jan 2022 18:24:09 -0000	1.20.2.22
@@ -110,7 +110,8 @@
 }
 
 aa_register_case -cats {smoke production_safe} -error_level warning -procs {
-    aa_log_result    
+    aa_log_result
+    api_proc_link
 } documentation__check_deprecated_see {
     checks if deprecated procs have an @see clause
 
@@ -223,7 +224,7 @@
 }
 
 aa_register_case -cats {smoke production_safe} -error_level warning -procs {
-    aa_log_result    
+    aa_log_result
 } documentation__check_parameters {
 
     Check if the parameters defined in the proc doc as '@param' are actual
@@ -270,7 +271,7 @@
             set real_params [list \
                                  {*}[dict get $proc_doc switches0] \
                                  {*}[dict get $proc_doc positionals] \
-                                 {*}[dict get $proc_doc switches1] \                                 
+                                 {*}[dict get $proc_doc switches1] \
                                 ]
             #
             # Check if the last parameter is 'args', as it is not included into