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.1 -r1.1.2.2
--- openacs-4/packages/acs-lang/tcl/test/lang-util-procs.tcl	9 Feb 2023 12:20:12 -0000	1.1.2.1
+++ openacs-4/packages/acs-lang/tcl/test/lang-util-procs.tcl	9 Feb 2023 12:43:14 -0000	1.1.2.2
@@ -5,7 +5,7 @@
 }
 
 aa_register_case \
-    -cats {smoke api} \
+    -cats {smoke api production_safe} \
     -procs {
         lang::util::edit_lang_key_url
     } \
@@ -49,3 +49,25 @@
         }
 
     }
+
+aa_register_case \
+    -cats {smoke api production_safe} \
+    -procs {
+        lang::util::message_key_regexp
+    } \
+    test_message_regexp {
+        Test lang::util::message_key_regexp
+    } {
+        set r [lang::util::message_key_regexp]
+
+        set values {
+            "#apackage.amessage#" true
+            "#apackage.amessage" false
+            "#apackageamessage#" false
+            "apackage.amessage" false
+            "#alongpackage.m#" true
+        }
+        foreach {v e} $values {
+            aa_${e} "'$v'" [regexp $r $v]
+        }
+    }