Index: openacs-4/packages/acs-lang/tcl/test/acs-lang-test.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/test/Attic/acs-lang-test.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-lang/tcl/test/acs-lang-test.tcl	28 Oct 2002 12:32:47 -0000	1.2
+++ openacs-4/packages/acs-lang/tcl/test/acs-lang-test.tcl	12 Nov 2002 15:33:16 -0000	1.3
@@ -203,3 +203,18 @@
     aa_true "the frog should jump across the fence" [string equal $subst_message \
                                                                   $expected_message]
 }
+
+aa_register_case message__get_missing_embedded_vars {
+    Tests the lang::message::get_missing_embedded_vars proc
+
+    @author Peter Marklund (peter@collaboraid.biz)
+    @creation-date 12 November 2002
+} {
+    set en_us_message "this is a message with some %vars% and some more %variables%"
+    set new_message "this message contains no vars"
+
+    set missing_vars_list [lang::message::get_missing_embedded_vars $en_us_message $new_message]
+
+    aa_true "check the missing vars" [expr [string equal [lindex $missing_vars_list 0] "vars"] && \
+                                           [string equal [lindex $missing_vars_list 1] "variables"]]
+}