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.2 -r1.1.2.3
--- openacs-4/packages/acs-lang/tcl/test/lang-util-procs.tcl	9 Feb 2023 12:43:14 -0000	1.1.2.2
+++ openacs-4/packages/acs-lang/tcl/test/lang-util-procs.tcl	9 Feb 2023 13:28:36 -0000	1.1.2.3
@@ -54,10 +54,13 @@
     -cats {smoke api production_safe} \
     -procs {
         lang::util::message_key_regexp
+        lang::util::message_tag_regexp
     } \
     test_message_regexp {
-        Test lang::util::message_key_regexp
+        Test regexp api
     } {
+        aa_section lang::util::message_key_regexp
+
         set r [lang::util::message_key_regexp]
 
         set values {
@@ -70,4 +73,21 @@
         foreach {v e} $values {
             aa_${e} "'$v'" [regexp $r $v]
         }
+
+        aa_section lang::util::message_tag_regexp
+        set r [lang::util::message_tag_regexp]
+
+        set values {
+            "<#apackage amessage#>" true
+            "<#apackageamessage#>" false
+            "<#apackage.amessage#>" false
+            "#apackage.amessage#>" false
+            "<#apackage.amessage#" false
+            "apackage.amessage" false
+            "<#apackage a message with spaces#>" true
+        }
+        foreach {v e} $values {
+            aa_${e} "'$v'" [regexp $r $v]
+        }
+
     }