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}
 } {