Index: openacs-4/packages/acs-admin/tcl/test/acs-admin-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/tcl/test/acs-admin-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-admin/tcl/test/acs-admin-procs.tcl	2 Nov 2003 15:51:33 -0000	1.1
@@ -0,0 +1,19 @@
+ad_library {
+    Automated tests.
+
+    @author Joel Aufrecht
+    @creation-date 2 Nov 2003
+    @cvs-id $Id: acs-admin-procs.tcl,v 1.1 2003/11/02 15:51:33 joela Exp $
+}
+
+aa_register_case acs_admin_trivial_smoke_test {
+    Minimal smoke test for acs-admin package.
+} {    
+
+    aa_run_with_teardown \
+        -rollback \
+        -test_code {
+            set header_result [apm_header]
+            aa_true "apm_header returns a non-null string?" [exists_and_not_null header_result]
+        }
+}
\ No newline at end of file
Index: openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl	2 Nov 2003 15:52:17 -0000	1.1
@@ -0,0 +1,20 @@
+ad_library {
+    Automated tests.
+
+    @author Joel Aufrecht
+    @creation-date 2 Nov 2003
+    @cvs-id $Id: acs-api-browser-procs.tcl,v 1.1 2003/11/02 15:52:17 joela Exp $
+}
+
+aa_register_case acs_api_browser_trivial_smoke_test {
+    Minimal smoke test for acs-api-browser package.
+} {    
+
+    aa_run_with_teardown \
+        -rollback \
+        -test_code {
+            set result [api_library_documentation packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl]
+            aa_true "api documentation proc can document itself" \
+                [ string match "*packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl*" $result]
+        }
+}
\ No newline at end of file
Index: openacs-4/packages/acs-mail/tcl/test/acs-mail-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail/tcl/test/acs-mail-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-mail/tcl/test/acs-mail-procs.tcl	2 Nov 2003 15:55:45 -0000	1.1
@@ -0,0 +1,32 @@
+ad_library {
+    Automated tests.
+
+    @author Joel Aufrecht
+    @creation-date 2 Nov 2003
+    @cvs-id $Id: acs-mail-procs.tcl,v 1.1 2003/11/02 15:55:45 joela Exp $
+}
+
+aa_register_case acs_mail_trivial_smoke_test {
+    Minimal smoke test.
+} {    
+
+    aa_run_with_teardown \
+        -rollback \
+        -test_code {
+            # initialize random values
+            set name [ad_generate_random_string]
+            set name_2 [ad_generate_random_string]
+
+            # there is no function in the api to directly retrieve a key
+            # so instead we have to create a child of another and then
+            # retrieve the parent's child
+
+            set new_multipart_id [acs_mail_multipart_new     -multipart_kind mixed]
+
+            aa_true "created a new multipart" [exists_and_not_null new_multipart_id]
+
+            aa_true "verify that a multipart was created" [acs_mail_multipart_p $new_multipart_id]
+            
+            # would test that delete works but there's no relevant function in the API 
+        }
+}
\ No newline at end of file
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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-messaging/tcl/test/acs-messaging-procs.tcl	2 Nov 2003 15:56:13 -0000	1.1
@@ -0,0 +1,24 @@
+ad_library {
+    Automated tests.
+
+    @author Joel Aufrecht
+    @creation-date 2 Nov 2003
+    @cvs-id $Id: acs-messaging-procs.tcl,v 1.1 2003/11/02 15:56:13 joela Exp $
+}
+
+aa_register_case acs_messaging_trivial_smoke_test {
+    Minimal smoke test.
+} {    
+
+    aa_run_with_teardown \
+        -rollback \
+        -test_code {
+            # initialize random values
+            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]
+
+        }
+}
\ No newline at end of file
Index: openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl	2 Nov 2003 15:57:47 -0000	1.1
@@ -0,0 +1,24 @@
+ad_library {
+    Automated tests.
+
+    @author Joel Aufrecht
+    @creation-date 2 Nov 2003
+    @cvs-id $Id: acs-subsite-procs.tcl,v 1.1 2003/11/02 15:57:47 joela Exp $
+}
+
+aa_register_case acs_subsite_trivial_smoke_test {
+    Minimal smoke test.
+} {    
+
+    aa_run_with_teardown \
+        -rollback \
+        -test_code {
+            # initialize random values
+            set name [ad_generate_random_string]
+
+            set main_subsite_id [subsite::main_site_id]
+
+            aa_true "Main subsite exists" [exists_and_not_null main_subsite_id]
+
+        }
+}
\ No newline at end of file