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.3 -r1.79.2.4
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	29 Mar 2019 14:03:03 -0000	1.79.2.3
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	29 Mar 2019 14:15:53 -0000	1.79.2.4
@@ -1421,6 +1421,19 @@
         return $d
     }
 
+    ad_proc -public ::acs::test::confirm_email {
+        -user_id:required
+    } {
+        Confirms user email
+    } {
+        # Call the confirmation URL and check response
+        set token [auth::get_user_secret_token -user_id $user_id]
+        set to_addr [party::get -party_id $user_id -element email]
+        set confirmation_url [export_vars -base "/register/email-confirm" { token user_id }]
+        set d [acs::test::http $confirmation_url]
+        acs::test::reply_has_status_code $d 200
+    }
+
     ad_proc -public ::acs::test::visualize_control_chars {lines} {
         Quotes and therefore makes visible control chars in input lines
     } {