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.5 -r1.1.2.6
--- openacs-4/packages/xowf/tcl/test/test-item-procs.tcl	15 Mar 2021 13:27:56 -0000	1.1.2.5
+++ openacs-4/packages/xowf/tcl/test/test-item-procs.tcl	18 Mar 2021 20:15:05 -0000	1.1.2.6
@@ -62,29 +62,31 @@
         "::xowf::test_item::Answer_manager instproc get_duration"
         "::xowf::test_item::Answer_manager instproc get_IPs"
         "::xowf::test_item::Answer_manager instproc grading_table"
+        "::xowf::test_item::Question_manager instproc item_substitute_markup"
+        "::xowiki::formfield::enumeration instproc scores"
     } create_test_items {
 
         Create a folder in various test-items and an exam with one item.
 
     } {
-        #
-        # Setup of test 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]
         set lang [string range $locale 0 1]
 
+        #
+        # Setup of test user_id and login
+        #
+        set user_info [::acs::test::user::create -email xowf@acs-testing.test -admin]
+        set d [::acs::test::login $user_info]
+
         try {
             ###########################################################
             aa_section "Make sure we have a fresh test folder"
             ############################################################
-
+            #-user_id $user_id
             set folder_info [::xowiki::test::require_test_folder \
-                                 -user_id $user_id \
+                                 -last_request $d \
                                  -instance $instance \
                                  -folder_name $testfolder \
                                  -fresh \
@@ -100,7 +102,7 @@
             ###########################################################
 
             ::xowiki::test::create_form_page \
-                -user_id $user_id \
+                -last_request $d \
                 -instance $instance \
                 -path $testfolder \
                 -parent_id $folder_id \
@@ -119,7 +121,7 @@
             ###########################################################
 
             ::xowiki::test::create_form_page \
-                -user_id $user_id \
+                -last_request $d \
                 -instance $instance \
                 -path $testfolder \
                 -parent_id $folder_id \
@@ -145,16 +147,16 @@
             ###########################################################
 
             set d [::xowiki::test::create_form_page \
-                -user_id $user_id \
-                -instance $instance \
-                -path $testfolder \
-                -parent_id $folder_id \
-                -form_name en:inclass-exam.wf \
-                -update [subst {
-                    _title "Sample Inclass Exam"
-                    _nls_language $locale
-                    question $testfolder/en:sample_mc_0
-                }]]
+                       -last_request $d \
+                       -instance $instance \
+                       -path $testfolder \
+                       -parent_id $folder_id \
+                       -form_name en:inclass-exam.wf \
+                       -update [subst {
+                           _title "Sample Inclass Exam"
+                           _nls_language $locale
+                           question $testfolder/en:sample_mc_0
+                       }]]
             aa_log "inclass exam created d=[ns_quotehtml $d]"
 
             ###########################################################