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]"