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.47.2.1 -r1.47.2.2
--- openacs-4/packages/acs-automated-testing/acs-automated-testing.info	1 Apr 2019 18:13:38 -0000	1.47.2.1
+++ openacs-4/packages/acs-automated-testing/acs-automated-testing.info	9 Apr 2019 14:30:49 -0000	1.47.2.2
@@ -7,7 +7,7 @@
     <initial-install-p>t</initial-install-p>
     <singleton-p>t</singleton-p>
 
-    <version name="5.10.0d11" url="http://openacs.org/repository/download/apm/acs-automated-testing-5.10.0d11.apm">
+    <version name="5.10.0d12" url="http://openacs.org/repository/download/apm/acs-automated-testing-5.10.0d12.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.0d11"/>
+	<provides url="acs-automated-testing" version="5.10.0d12"/>
 	<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.79.2.7 -r1.79.2.8
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	4 Apr 2019 08:50:41 -0000	1.79.2.7
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	9 Apr 2019 14:30:49 -0000	1.79.2.8
@@ -1544,10 +1544,10 @@
     }
 
     ad_proc -public follow_link {
+        -last_request:required        
         {-user_id 0}
         {-base /}
         {-label ""}
-        {-html:required}
     } {
 
         Follow the first provided label and return the page info.
@@ -1557,6 +1557,7 @@
         @author Gustaf Neumann
     } {
         set href ""
+        set html [dict get $last_request body]
         acs::test::dom_html root $html {
             foreach a [$root selectNodes //a] {
                 set link_label [string trim [$a text]]
@@ -1576,11 +1577,12 @@
                 # aa_log "a TEXT '[$a asHTML]'"
             }
         }
-        aa_true "Link label for '$label' is not empty: '$href'" {$href ne ""}
+        aa_true "href '$href' of link with label '$label' is not empty (<a href='[detail_link $last_request]'>Details</a>)" \
+            {$href ne ""}
         if {![string match "/*" $href]} {
             set href $base/$href
         }
-        return [http -user_id $user_id $href]
+        return [http -last_request $last_request -user_id $user_id $href]
     }
 
 
@@ -1792,6 +1794,7 @@
     ad_proc ::acs::test::user::create {
         {-user_id ""}
         {-admin:boolean}
+        {-locale en_US}
     } {
         Create a test user with random email and password for testing
 
@@ -1816,6 +1819,7 @@
                            -secret_answer [ad_generate_random_string] \
                            -authority_id [auth::authority::get_id -short_name "acs_testing"]]
 
+        lang::user::set_locale -user_id [dict get $user_info user_id] $locale
         if { [dict get $user_info creation_status] ne "ok" } {
             # Could not create user
             error "Could not create test user with username=$username user_info=[array get user_info]"