Index: openacs-4/packages/new-portal/tcl/test/new-portal-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/test/new-portal-test-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/new-portal/tcl/test/new-portal-test-procs.tcl	19 Jul 2018 12:26:39 -0000	1.4
+++ openacs-4/packages/new-portal/tcl/test/new-portal-test-procs.tcl	3 Apr 2019 17:47:02 -0000	1.5
@@ -13,12 +13,7 @@
 
 
 	    # create a test user
-	    set user_info [ns_mktemp userXXXXXX]
-	    array set test_user [auth::create_user \
-				  -username $user_info \
-				  -first_names $user_info \
-				  -last_name $user_info \
-				  -email "${user_info}@test.test"]
+	    array set test_user [acs::test::user::create]
 
 	    set template_id [portal::create $test_user(user_id)]
 
@@ -31,14 +26,8 @@
 		-portal_id $template_id
 
 	    # create a portal based on the template
-            set user_info_2 [ns_mktemp userXXXXXX]
-	    array set test_user_2 [auth::create_user \
-				  -username $user_info_2 \
-				  -first_names $user_info_2 \
-				  -last_name $user_info_2 \
-				  -email "${user_info_2}@test.test"]
-	    
-	    
+	    array set test_user_2 [acs::test::user::create]
+
 	    set portal_id_2 [portal::create  -template_id $template_id $test_user_2(user_id)]
 
 	    # make sure the pages exist and are in the same order