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.32.2.1 -r1.32.2.2
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	21 Jul 2005 17:32:33 -0000	1.32.2.1
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	12 Sep 2005 09:11:35 -0000	1.32.2.2
@@ -1,3 +1,4 @@
+
 ##############################################################################
 #
 #   Copyright 2001, OpenACS, Peter Harper.
@@ -1197,4 +1198,15 @@
 
     db_1row first_url { *SQL* }
         return $url
+}
+
+ad_proc -public aa_display_result {
+    {-response:required}
+    {-explanation:required}
+} {
+    if {$response} {
+	aa_log_result "pass" $explanation
+    } else {
+	aa_log_result "fail" $explanation
+    }
 }
\ No newline at end of file