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 -r1.2 -r1.3
--- openacs-4/packages/acs-admin/tcl/test/acs-admin-procs.tcl	16 Nov 2003 10:17:35 -0000	1.2
+++ openacs-4/packages/acs-admin/tcl/test/acs-admin-procs.tcl	15 Feb 2004 10:43:01 -0000	1.3
@@ -6,7 +6,7 @@
     @cvs-id $Id$
 }
 
-aa_register_case acs_admin_trivial_smoke_test {
+aa_register_case -cats smoke acs_admin_trivial_smoke_test {
     Minimal smoke test for acs-admin package.
 } {    
 
@@ -18,7 +18,7 @@
         }
 }
 
-aa_register_case apm_higher_version_installed_p {
+aa_register_case -cats {api smoke} apm_higher_version_installed_p {
     Test apm_higher_version_installed_p proc.
 } {    
 
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 -r1.1 -r1.2
--- openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl	2 Nov 2003 15:52:17 -0000	1.1
+++ openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl	15 Feb 2004 10:46:22 -0000	1.2
@@ -6,7 +6,9 @@
     @cvs-id $Id$
 }
 
-aa_register_case acs_api_browser_trivial_smoke_test {
+aa_register_case \
+    -cats {api smoke} \
+    acs_api_browser_trivial_smoke_test {
     Minimal smoke test for acs-api-browser package.
 } {    
 
Index: openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl,v
diff -u -r1.35 -r1.36
--- openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	31 Oct 2003 09:38:45 -0000	1.35
+++ openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	15 Feb 2004 10:52:51 -0000	1.36
@@ -6,7 +6,9 @@
     @cvs-id $Id$
 }
 
-aa_register_case auth_authenticate {
+aa_register_case \
+    -cats {api}\
+    auth_authenticate {
     Test the auth::authenticate proc.
 } {    
 
@@ -126,7 +128,9 @@
         }
 }
 
-aa_register_case auth_create_user {
+aa_register_case \
+    -cats {api} \
+    auth_create_user {
     Test the auth::create_user proc.
 } {
 
@@ -249,7 +253,9 @@
         } 
 }
 
-aa_register_case auth_confirm_email {
+aa_register_case \
+    -cats {db api smoke} \
+    auth_confirm_email {
     Test the auth::set_email_verified proc.
 } {
     set user_id [ad_conn user_id]
@@ -268,7 +274,10 @@
         }
 }
 
-aa_register_case auth_get_registration_elements {
+aa_register_case  \
+    -cats {api smoke} \
+    -error_level {warning} \
+    auth_get_registration_elements {
     Test the auth::get_registration_elements proc
 } {
     array set element_array [auth::get_registration_elements]
@@ -279,7 +288,10 @@
     aa_true "there is more than one optional element" [expr [llength $element_array(optional)] > 0]
 }
 
-aa_register_case auth_get_registration_form_elements {
+aa_register_case  \
+    -cats {api smoke} \
+    -error_level {warning} \
+    auth_get_registration_form_elements {
     Test the auth::get_registration_form_elements proc
 } {
     set form_elements [auth::get_registration_form_elements]
@@ -293,7 +305,9 @@
 #
 ###########
 
-aa_register_case auth_password_get_change_url {
+aa_register_case  \
+    -cats {api smoke} \
+    auth_password_get_change_url {
     Test the auth::password::get_change_url proc.
 } {
 
@@ -307,7 +321,10 @@
     }
 }
 
-aa_register_case auth_password_can_change_p {
+aa_register_case  \
+    -cats {api smoke} \
+    -error_level {warning} \
+    auth_password_can_change_p {
     Test the auth::password::can_change_p proc.
 } {
     auth::test::get_password_vars -array_name test_vars
@@ -317,7 +334,9 @@
         "1"
 }
 
-aa_register_case auth_password_change {
+aa_register_case  \
+    -cats {api} \
+    auth_password_change {
     Test the auth::password::change proc.
 } {
     aa_stub ns_sendmail {
@@ -370,7 +389,9 @@
         }
 }
 
-aa_register_case auth_password_recover {
+aa_register_case  \
+    -cats {api smoke} \
+    auth_password_recover {
     Test the auth::password::recover_password proc.
 } {
     auth::test::get_password_vars -array_name test_vars
@@ -397,7 +418,9 @@
         }
 }
 
-aa_register_case auth_password_get_forgotten_url {
+aa_register_case  \
+    -cats {api smoke} \
+    auth_password_get_forgotten_url {
     Test the auth::password::get_forgotten_url proc.
 } {
     auth::test::get_password_vars -array_name test_vars    
@@ -417,7 +440,9 @@
     aa_true "there is a local recover-password page without user info" [regexp {recover-password} $url]
 }
 
-aa_register_case auth_password_retrieve {
+aa_register_case  \
+    -cats {api smoke} \
+    auth_password_retrieve {
     Test the auth::password::retrieve proc.
 } {
     auth::test::get_password_vars -array_name test_vars    
@@ -429,7 +454,9 @@
     aa_true "must have message on failure" [expr ![empty_string_p $result(password_message)]]
 }
 
-aa_register_case auth_password_reset {
+aa_register_case  \
+    -cats {api} \
+    auth_password_reset {
     Test the auth::password::reset proc.
 } {
     # We don't want email to go out
@@ -490,7 +517,9 @@
 #
 ###########
 
-aa_register_case auth_authority_api {
+aa_register_case  \
+    -cats {api db} \
+    auth_authority_api {
     Test the auth::authority::create, auth::authority::edit, and auth::authority::delete procs.
 } {
     aa_run_with_teardown \
@@ -561,7 +590,9 @@
 }
 
 
-aa_register_case auth_driver_get_parameter_values {
+aa_register_case  \
+    -cats {api} \
+    auth_driver_get_parameter_values {
     Test the auth::driver::set_parameter_values proc.
 } {
     aa_run_with_teardown \
@@ -607,7 +638,9 @@
         }
 }
 
-aa_register_case auth_use_email_for_login_p {
+aa_register_case  \
+    -cats {api} \
+    auth_use_email_for_login_p {
     Test auth::UseEmailForLoginP
 } {
     aa_stub auth::get_register_authority {
@@ -667,7 +700,9 @@
         }
 }
 
-aa_register_case auth_email_on_password_change {
+aa_register_case  \
+    -cats {api} \
+    auth_email_on_password_change {
     Test acs-kernel.EmailAccountOwnerOnPasswordChangeP parameter
 } {
     aa_stub ns_sendmail {
Index: openacs-4/packages/acs-authentication/tcl/test/sync-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/test/sync-test-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/acs-authentication/tcl/test/sync-test-procs.tcl	31 Oct 2003 10:29:19 -0000	1.15
+++ openacs-4/packages/acs-authentication/tcl/test/sync-test-procs.tcl	15 Feb 2004 10:52:51 -0000	1.16
@@ -6,7 +6,9 @@
     @cvs-id $Id$
 }
 
-aa_register_case sync_start_end {
+aa_register_case \ 
+    -cats {api db} \
+    sync_start_end {
     Test batch job basics: Starting, getting document, adding entries, ending.
 } {    
     aa_run_with_teardown \
@@ -80,7 +82,9 @@
         }
 }
 
-aa_register_case sync_actions {
+aa_register_case  \ 
+    -cats {api} \
+    sync_actions {
     Test job actions: insert, update, 
 } {    
     aa_run_with_teardown \
@@ -336,7 +340,9 @@
         }
 }
 
-aa_register_case sync_snapshot {
+aa_register_case  \ 
+    -cats {api db} \
+    sync_snapshot {
     Test a snapshot job
 } {
     aa_run_with_teardown \
@@ -479,7 +485,9 @@
 }
 
 
-aa_register_case sync_batch_for_local {
+aa_register_case  \ 
+    -cats {api smoke} \
+    sync_batch_for_local {
     Test a batch job for the local authority
 } {
     aa_run_with_teardown \
@@ -496,7 +504,9 @@
 }
 
 
-aa_register_case sync_batch_ims_example_doc { 
+aa_register_case  \ 
+    -cats {api} \
+    sync_batch_ims_example_doc { 
     Test IMS Enterprise 1.1 batch sync with the XML document from the specification.
 } {
     aa_stub acs_sc::invoke {
@@ -679,7 +689,9 @@
 }
 
 
-aa_register_case sync_batch_ims_test {
+aa_register_case  \ 
+    -cats {api} \
+    sync_batch_ims_test {
     Test IMS Enterprise 1.1 batch sync with a constructed document which actually works
 } {
     aa_stub acs_sc::invoke {
@@ -945,7 +957,9 @@
         }
 }
 
-aa_register_case sync_http_get_document {
+aa_register_case  \ 
+    -cats {api smoke} \
+    sync_http_get_document {
     Test the HTTPGet implementation of GetDocument service contract.
 } {
     array set result [acs_sc::invoke \
@@ -961,7 +975,9 @@
     aa_equals "result.document is 'success'" $result(document) "success"
 }
 
-aa_register_case sync_file_get_document {
+aa_register_case  \ 
+    -cats {api web} \
+    sync_file_get_document {
     Test the HTTPGet implementation of GetDocument service contract.
 } {
     set path "[acs_root_dir]/www/SYSTEM/dbtest.tcl"