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 -N -r1.34 -r1.35
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	17 May 2006 13:59:59 -0000	1.34
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	4 Jun 2006 00:45:21 -0000	1.35
@@ -1,3 +1,4 @@
+
 ##############################################################################
 #
 #   Copyright 2001, OpenACS, Peter Harper.
@@ -1019,8 +1020,6 @@
 namespace eval aa_test {}
 
 ad_proc -public aa_test::xml_report_dir {} {
-    returns the package parameter XMLReportDir.
-} {
     return [parameter::get -parameter XMLReportDir]
 }
 
@@ -1190,3 +1189,29 @@
     }
     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.
+} {
+
+    if {![db_0or1row first_url { *SQL* }]} {
+        site_node::instantiate_and_mount -package_key $package_key
+	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
+    }
+}