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.45 -r1.46
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	21 Mar 2018 14:25:26 -0000	1.45
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	24 Mar 2018 08:46:49 -0000	1.46
@@ -1068,6 +1068,7 @@
     {-body}
     {-content_type}
     {-timeout 10}
+    {-headers}    
     request
 } {
     Run an http request against the actual server
@@ -1081,10 +1082,14 @@
         lappend extra_args -body $body
     }
     if {[info exists content_type]} {
-        set queryHeaders [ns_set create]
-        ns_set update $queryHeaders "Content-type" $content_type
-        lappend extra_args -headers $queryHeaders
+        if {![info exists headers]} {
+            set headers [ns_set create]
+        }
+        ns_set update $headers "Content-type" $content_type
     }
+    if {[info exists headers]} {
+        lappend extra_args -headers $headers
+    }
     nsv_set aa_test logindata [list peeraddr $peeraddr user_id $user_id]
     
     try {
@@ -1096,8 +1101,8 @@
     } finally {
         nsv_unset aa_test logindata
     }
-    ns_log notice "run $request returns $d"
-    ns_log notice "... [ns_set array [dict get $d headers]]"
+    #ns_log notice "run $request returns $d"
+    #ns_log notice "... [ns_set array [dict get $d headers]]"
     return $d
 }