Index: openacs-4/packages/acs-lang/tcl/test/lang-util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/test/lang-util-procs.tcl,v
diff -u -r1.1.2.4 -r1.1.2.5
--- openacs-4/packages/acs-lang/tcl/test/lang-util-procs.tcl	9 Feb 2023 13:43:15 -0000	1.1.2.4
+++ openacs-4/packages/acs-lang/tcl/test/lang-util-procs.tcl	9 Feb 2023 14:07:29 -0000	1.1.2.5
@@ -126,3 +126,28 @@
                 $r $e
         }
     }
+
+aa_register_case \
+    -cats {smoke api} \
+    -procs {
+        lang::util::translator_mode_set
+        lang::util::translator_mode_p
+    } \
+    test_translator_mode {
+        Test localizeing of a list of lists
+    } {
+        lang::util::translator_mode_set 0
+        aa_false "Translator mode is off" [lang::util::translator_mode_p]
+
+        lang::util::translator_mode_set 1
+        aa_true "Translator mode is on" [lang::util::translator_mode_p]
+
+        lang::util::translator_mode_set false
+        aa_false "Translator mode is off" [lang::util::translator_mode_p]
+
+        lang::util::translator_mode_set true
+        aa_true "Translator mode is on" [lang::util::translator_mode_p]
+
+        lang::util::translator_mode_set 0
+        aa_false "Translator mode is off" [lang::util::translator_mode_p]
+    }