Index: openacs-4/packages/acs-lang/tcl/test/acs-lang-message-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/test/acs-lang-message-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/tcl/test/acs-lang-message-procs.tcl	31 Aug 2006 20:05:45 -0000	1.1
@@ -0,0 +1,33 @@
+ad_library {
+   Test cases for lang-message-procs
+   @author Veronica De La Cruz (veronica@viaro.net)
+   @creation-date 11 Aug 2006
+}
+
+aa_register_case -cats {smoke api} \
+                 -procs {lang::message::register lang::message::get} \
+                  test_message_register {
+    Simple test that registrates a new message to the BD.
+   
+} {
+    aa_run_with_teardown -rollback -test_code {
+
+	set message_key [ad_generate_random_string]
+        set message [ad_generate_random_string]
+        set package_key "acs-translations"
+        set locale "en_US"
+        aa_log "Creating message : $message || message key: $message_key"
+        
+        # Creates the new message
+        lang::message::register $locale $package_key $message_key $message
+
+        # Try to retrieve the new message created.
+
+        lang::message::get -package_key $package_key -message_key $message_key -locale $locale -array message_new
+
+        aa_true "Message add succeeded" [string equal $message_new(message) $message] 
+
+    }
+
+}
+