Index: openacs-4/packages/xowf/tcl/test/test-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test/Attic/test-item-procs.tcl,v
diff -u -N -r1.1.2.4 -r1.1.2.5
--- openacs-4/packages/xowf/tcl/test/test-item-procs.tcl	7 Mar 2021 19:58:27 -0000	1.1.2.4
+++ openacs-4/packages/xowf/tcl/test/test-item-procs.tcl	15 Mar 2021 13:27:56 -0000	1.1.2.5
@@ -68,9 +68,11 @@
 
     } {
         #
-        # Run the test under the current user_id.
+        # Setup of test user_id
         #
-        set user_id [ad_conn user_id]
+        set d [::acs::test::user::create -email xowf@acs-testing.test -admin]
+        set user_id [dict get $d user_id]
+
         set instance $_xowf_test_instance_name
         set testfolder .testfolder
         set locale [lang::system::locale]
Index: openacs-4/packages/xowf/tcl/test/xowf-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test/xowf-test-procs.tcl,v
diff -u -N -r1.14.2.17 -r1.14.2.18
--- openacs-4/packages/xowf/tcl/test/xowf-test-procs.tcl	3 Mar 2021 14:00:13 -0000	1.14.2.17
+++ openacs-4/packages/xowf/tcl/test/xowf-test-procs.tcl	15 Mar 2021 13:27:56 -0000	1.14.2.18
@@ -58,10 +58,10 @@
 
     } {
         #
-        # Run the test under the current user_id.
+        # Setup of test user_id
         #
-        set user_id [ad_conn user_id]
-        ns_log notice USER=$user_id
+        set d [::acs::test::user::create -email xowf@acs-testing.test -admin]
+        set user_id [dict get $d user_id]
 
         set instance $_xowf_test_instance_name
         set testfolder .testfolder
@@ -191,9 +191,10 @@
         interface.
     } {
         #
-        # Run the test under the current user_id.
+        # Setup of test user_id
         #
-        set user_id [ad_conn user_id]
+        set d [::acs::test::user::create -email xowf@acs-testing.test -admin]
+        set user_id [dict get $d user_id]
 
         set instance $_xowf_test_instance_name
         set testfolder .testfolder