Index: openacs-4/packages/acs-automated-testing/acs-automated-testing.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/acs-automated-testing.info,v
diff -u -r1.38 -r1.39
--- openacs-4/packages/acs-automated-testing/acs-automated-testing.info	7 Aug 2017 23:47:46 -0000	1.38
+++ openacs-4/packages/acs-automated-testing/acs-automated-testing.info	19 Mar 2018 13:40:50 -0000	1.39
@@ -7,7 +7,7 @@
     <initial-install-p>t</initial-install-p>
     <singleton-p>t</singleton-p>
     
-    <version name="5.10.0d1" url="http://openacs.org/repository/download/apm/acs-automated-testing-5.10.0d1.apm">
+    <version name="5.10.0d2" url="http://openacs.org/repository/download/apm/acs-automated-testing-5.10.0d2.apm">
         <owner url="http://openacs.org">OpenACS</owner>
         <summary>The interface to the automated testing facilities within OpenACS.</summary>
         <release-date>2017-08-06</release-date>
@@ -19,7 +19,7 @@
         OpenACS system.  Also provides a UI for managing
         automatic-rebuild servers as in a test farm.</description>
 
-        <provides url="acs-automated-testing" version="5.10.0d1"/>
+        <provides url="acs-automated-testing" version="5.10.0d2"/>
         <requires url="acs-kernel" version="5.9.1"/>
 
         <callbacks>
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.42 -r1.43
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	15 Nov 2017 16:28:23 -0000	1.42
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	19 Mar 2018 13:40:50 -0000	1.43
@@ -1062,7 +1062,24 @@
     }
 }
 
+ad_proc -private aa_http {{-user_id 0} request} {
+    Run an http request against the actual server
 
+    @author Gustaf Neumann
+} {
+    set driverInfo [util_driver_info]
+    set peeraddr   [ns_conn peeraddr]
+    nsv_set aa_test logindata [list peeraddr $peeraddr user_id $user_id]
+    try {
+        set d [ns_http run "http://\[$peeraddr\]:[dict get $driverInfo port]/$request"]
+    } finally {
+        nsv_unset aa_test logindata
+    }
+    ns_log notice "run $request returns $d"
+    ns_log notice "... [ns_set array [dict get $d headers]]"
+    return $d
+}
+
 namespace eval aa_test {}
 
 ad_proc -public aa_test::xml_report_dir {} {
@@ -1241,6 +1258,16 @@
     set test(testcase_failure) [array get testcase_failure]
 }
 
+ad_proc -public aa_test::visualize_control_chars {lines} {
+    set output $lines
+    regsub -all {\\} $output {\\\\} output
+    regsub -all {\r} $output {\\r} output
+    regsub -all {\n} $output "\\n\n" output
+    return $output
+}
+
+
+
 ad_proc -public aa_get_first_url {
     {-package_key:required}
 } {