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.33 -r1.33.2.1
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	27 Feb 2005 22:45:39 -0000	1.33
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	19 Oct 2005 13:57:38 -0000	1.33.2.1
@@ -1190,3 +1190,23 @@
     }
     set test(testcase_failure) [array get testcase_failure]
 }
+ad_proc -public aa_get_first_url {
+    {-package_key:required}
+} {
+  Procedure for geting the url of a mounted package with the package_key. It uses the first instance that it founds. This is usefull for tclwebtest tests.
+} {
+
+    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