Index: openacs-4/packages/acs-tcl/tcl/test/tcl-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/Attic/tcl-documentation-procs.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/acs-tcl/tcl/test/tcl-documentation-procs.tcl	14 Jul 2022 14:36:21 -0000	1.1.2.2
+++ openacs-4/packages/acs-tcl/tcl/test/tcl-documentation-procs.tcl	28 Feb 2023 07:57:01 -0000	1.1.2.3
@@ -4,7 +4,27 @@
 
 }
 
+aa_register_case \
+    -cats {api smoke production_safe} \
+    -procs {
+        ad_complain
+        ad_complaints_get_list
+    } ad_complain {
 
+        Test ad_complain api specific behavior
+
+    } {
+        set key __test_acs_tcl_ad_complain_errorkey
+        set ::ad_page_contract_error_string($key) "A message from a key"
+        ad_complain "A Message"
+        ad_complain "Another Message"
+        ad_complain -key $key "This will be ignored"
+
+        aa_equals "Complaints are returned correctly" \
+            [ad_complaints_get_list] \
+            {{A Message} {Another Message} {A message from a key}}
+    }
+
 aa_register_case \
     -cats {api smoke production_safe} \
     -procs {