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 -N -r1.1 -r1.1.2.1
--- 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	10 Dec 2003 16:05:29 -0000	1.1.2.1
@@ -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 \
@@ -17,8 +17,20 @@
             set name [ad_generate_random_string]
 
             set formatted_name [acs_messaging_format_as_html text/html $name]
-
             aa_true "Name is formatted" ![string match "<pre>$name<pre>" $formatted_name]
+        }
+}
 
+aa_register_case acs_messaging_message_p {
+    Test message_p proc.
+} {    
+
+    aa_run_with_teardown \
+        -rollback \
+        -test_code {
+
+            set message_p [acs_message_p "0"]
+            aa_true "Integer is not a message_id" !$message_p
+
         }
-}
\ No newline at end of file
+}