Index: openacs-4/packages/acs-automated-testing/tcl/test/example-test-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/test/Attic/example-test-init.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-automated-testing/tcl/test/example-test-init.tcl	4 Apr 2003 09:46:47 -0000	1.1
+++ openacs-4/packages/acs-automated-testing/tcl/test/example-test-init.tcl	16 Feb 2004 16:47:27 -0000	1.2
@@ -45,7 +45,7 @@
 }
 
 aa_register_case -cats {
-  script
+  tcl
 } -init_classes {
   my_init
 } "aa_example-000" {
@@ -84,7 +84,7 @@
 }
 
 aa_register_case -cats {
-  script
+  tcl
 } -init_classes {
   my_init my_init2
 } "aa-example-001" {
@@ -116,7 +116,7 @@
 }
 
 aa_register_case -cats {
-  script
+  tcl
 } "aa_example-002" {
   Tests un-successful audit writing.
   First call fails.
@@ -137,6 +137,14 @@
   set result [aa_example_write_audit_entries $entries]
 
   aa_false "return value false" $result
-  aa_equals "entries parameter not currupted" $entries $entries_ex
+  aa_equals "entries parameter not corrupted" $entries $entries_ex
 }
 
+aa_register_case -cats {
+    security_risk
+} "aa_example-exclusion-security-risk" {
+    If security-risk is not checked, this test shouldn't run
+} {
+    aa_log "Unless security-risk is was checked, you shouldn't see this test."
+}
+