Index: openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	28 Aug 2003 07:51:00 -0000	1.8
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	28 Aug 2003 09:11:16 -0000	1.9
@@ -719,13 +719,13 @@
 
   incr aa_testcase_test_id
   if {$test_result == "pass"} {
-    ns_log Notice "PASSED: $aa_testcase_id, $test_notes"
+    ns_log Debug "PASSED: $aa_testcase_id, $test_notes"
     incr aa_testcase_passes
   } elseif {$test_result == "fail"} {
     ns_log Error "FAILED: $aa_testcase_id, $test_notes"
     incr aa_testcase_fails
   } else {
-    ns_log Notice "LOG: $aa_testcase_id, $test_notes"
+    ns_log Debug "LOG: $aa_testcase_id, $test_notes"
     set test_result "log"
   }
   # Notes in database can only hold so many characters
@@ -750,7 +750,7 @@
 
   if {$test_fails == 0} {
   } else {
-    ns_log Notice "FAILED: $aa_testcase_id, $test_fails tests failed"
+    ns_log Error "FAILED: $aa_testcase_id, $test_fails tests failed"
   }
 
   db_dml testcase_result_insert {
@@ -882,8 +882,9 @@
 
     if { [info exists aa_rollback_test_statements] } {
         foreach test_statement $aa_rollback_test_statements {
-            ns_log Notice "pm debug test_statement \"$test_statement\""
             eval [join $test_statement " "]
         }
     }
+
+    unset aa_rollback_test_statements
 }