Index: openacs-4/packages/acs-automated-testing/tcl/test/acs-automated-testing-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/test/acs-automated-testing-procs.tcl,v
diff -u -N -r1.10.2.10 -r1.10.2.11
--- openacs-4/packages/acs-automated-testing/tcl/test/acs-automated-testing-procs.tcl	9 Sep 2022 11:41:43 -0000	1.10.2.10
+++ openacs-4/packages/acs-automated-testing/tcl/test/acs-automated-testing-procs.tcl	9 Sep 2022 13:10:49 -0000	1.10.2.11
@@ -325,6 +325,22 @@
         }
     }
 
+aa_register_case \
+    -cats {api smoke production_safe} \
+    -procs {
+        acs::test::visualize_control_chars
+    } \
+    visualize_control_chars {
+        Test the acs::test::visualize_control_chars api
+    } {
+        foreach {i o} {
+            "ciao  \n miao \\ bau\r" "ciao  \\n\n miao \\\\ bau\\r"
+            "I am  normal" "I am  normal"
+        } {
+            aa_equals "'$i' becomes '$o'" \
+                [acs::test::visualize_control_chars $i] $o
+        }
+    }
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4