Index: openacs-4/packages/acs-tcl/tcl/test/html-email-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/html-email-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-tcl/tcl/test/html-email-procs.tcl	6 Oct 2006 14:45:21 -0000	1.1
@@ -0,0 +1,17 @@
+ad_library {
+    Test html email procs
+}
+
+aa_register_case -cats {api smoke} build_mime_message {
+    Basic test of build mime mesage
+} {
+    aa_false "Build mime message, no error" \
+	[catch {build_mime_message \
+		    "Test Mesage" \
+		    "<p>Test Message</p>"} errmsg]
+
+    aa_false "Package require mime package found" \
+	[catch {package require mime} errmsg]
+
+
+}
\ No newline at end of file