Index: openacs-4/packages/acs-messaging/tcl/test/acs-messaging-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-messaging/tcl/test/acs-messaging-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-messaging/tcl/test/acs-messaging-procs.tcl	2 Nov 2003 15:56:13 -0000	1.1
+++ openacs-4/packages/acs-messaging/tcl/test/acs-messaging-procs.tcl	16 Nov 2003 10:32:54 -0000	1.2
@@ -6,8 +6,8 @@
     @cvs-id $Id$
 }
 
-aa_register_case acs_messaging_trivial_smoke_test {
-    Minimal smoke test.
+aa_register_case acs_messaging_format_as_html {
+    Test acs_messaging_format_as_html proc.
 } {    
 
     aa_run_with_teardown \
@@ -21,4 +21,20 @@
             aa_true "Name is formatted" ![string match "<pre>$name<pre>" $formatted_name]
 
         }
-}
\ No newline at end of file
+}
+
+aa_register_case acs_messaging_message_p {
+    Test message_p proc.
+} {    
+
+    aa_run_with_teardown \
+        -rollback \
+        -test_code {
+            # initialize random values
+            set message_p [acs_message_p "0"]
+
+            aa_true "Integer is not a message_id" !$message_p
+
+        }
+}
+b