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.41 -r1.42
--- openacs-4/packages/acs-automated-testing/acs-automated-testing.info	17 Jul 2018 21:15:20 -0000	1.41
+++ openacs-4/packages/acs-automated-testing/acs-automated-testing.info	23 Jul 2018 14:08:19 -0000	1.42
@@ -7,7 +7,7 @@
     <initial-install-p>t</initial-install-p>
     <singleton-p>t</singleton-p>
 
-    <version name="5.10.0d4" url="http://openacs.org/repository/download/apm/acs-automated-testing-5.10.0d4.apm">
+    <version name="5.10.0d5" url="http://openacs.org/repository/download/apm/acs-automated-testing-5.10.0d5.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.0d4"/>
+	<provides url="acs-automated-testing" version="5.10.0d5"/>
 	<requires url="acs-kernel" version="5.9.1"/>
 	<requires url="acs-tcl" version="5.10.0d7"/>
         <requires url="acs-api-browser" version="5.10.0d2"/>
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.64 -r1.65
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	23 Jul 2018 11:44:20 -0000	1.64
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	23 Jul 2018 14:08:19 -0000	1.65
@@ -1211,10 +1211,83 @@
             aa_equals "XPath $q:" $result $value
         }
     }
+    
+    ad_proc -public ::aa_xpath::get_form_values {node xpath} {
+        
+        return form values (input fields and textareas) in form of a
+        dict (attribute value pairs). The provided xpath must point to
+        the form of which the values have to be extracted.
+
+    } {
+        set values {}
+        foreach n [$node selectNodes $xpath//input] {
+            set name  [$n getAttribute name]
+            #ns_log notice "aa_xpath::get_form_values from $className input node $n name $name:"
+            if {[$n hasAttribute value]} {
+                set value [$n getAttribute value]
+            } else {
+                set value ""
+            }
+            lappend values $name $value
+        }
+        foreach n [$node selectNodes $xpath//textarea] {
+            set name  [$n getAttribute name]
+            #ns_log notice "aa_xpath::get_form_values from $className textarea node $n name $name:"
+            set value [$n text]
+            lappend values $name $value
+        }
+        foreach n [$node selectNodes $xpath//select] {
+            set name  [$n getAttribute name]
+            set value [$node selectNodes $xpath//select\[name='$name'\]/option\[@selected='selected'\]/@value]
+            #ns_log notice "aa_xpath::get_form_values from SELECT $name OPTION <$value> [$n asHTML]"
+            lappend values $name $value
+        }
+        
+        return $values
+    }
+  
 }
 
 namespace eval aa_test {}
 
+ad_proc -public ::aa_test::form_reply {
+    -user_id:required
+    -url:required
+    {-update {}}
+    form_content
+} {
+    
+    Send a (POST) request to the specified URL based on the
+    provided form_content which has the form of a dict.  For
+    convenice the update fields are provided to overload the
+    form_content.
+    
+} {
+    foreach {att value} $update {
+        dict set form_content $att $value
+    }
+    #ns_log notice "final form_content $form_content"
+    #
+    # Transform the dict into export format. Since export_vars
+    # will skip all names containing a ":", such as
+    # "formbutton:ok", we do this "manually".
+    #
+    set export {}
+    foreach {att value} $form_content {
+        lappend export [ad_urlencode_query $att]=[ad_urlencode_query $value]
+    }
+    set body [join $export &]
+    ns_log notice "body=$body"
+    #
+    # Send the POST request
+    #
+    return [aa_http \
+                -user_id $user_id \
+                -method POST -body $body \
+                -headers {Content-Type application/x-www-form-urlencoded} \
+                $url]
+}
+
 ad_proc -public aa_test::xml_report_dir {} {
     Retrieves the XMLReportDir parameter.