Index: openacs-4/packages/acs-automated-testing/tcl/tclwebtest-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/tclwebtest-procs.tcl,v diff -u -r1.15.2.3 -r1.15.2.4 --- openacs-4/packages/acs-automated-testing/tcl/tclwebtest-procs.tcl 9 Sep 2022 11:39:24 -0000 1.15.2.3 +++ openacs-4/packages/acs-automated-testing/tcl/tclwebtest-procs.tcl 9 Sep 2022 13:03:09 -0000 1.15.2.4 @@ -100,7 +100,7 @@ # ######################### -ad_proc twt::user::create { +ad_proc -deprecated twt::user::create { {-user_id {}} {-admin:boolean} } { @@ -112,14 +112,18 @@ the additional keys email and password. @author Peter Marklund + + @see acs::test::user::create } { return [acs::test::user::create -user_id $user_id -admin=$admin_p] } -ad_proc twt::user::delete { +ad_proc -deprecated twt::user::delete { {-user_id:required} } { Remove a test user. + + @see ::acs::test::user_delete } { ::acs::test::user_delete -user_id $user_id } Index: openacs-4/packages/acs-automated-testing/www/admin/record-test.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/record-test.tcl,v diff -u -r1.5.2.4 -r1.5.2.5 --- openacs-4/packages/acs-automated-testing/www/admin/record-test.tcl 28 Feb 2021 16:56:17 -0000 1.5.2.4 +++ openacs-4/packages/acs-automated-testing/www/admin/record-test.tcl 9 Sep 2022 13:03:10 -0000 1.5.2.5 @@ -102,15 +102,15 @@ if {$login_id eq ""} { if {$login_type == -2} { -# set login_code "twt::user::create" +# set login_code "acs::test::user::create" set login_code " - array set user_info \[twt::user::create\] + array set user_info \[acs::test::user::create\] twt::user::login \$user_info(email) \$user_info(password) " } elseif {$login_type == -1} { -# set login_code "twt::user::create -admin" +# set login_code "acs::test::user::create -admin" set login_code " - array set user_info \[twt::user::create -admin\] + array set user_info \[acs::test::user::create -admin\] twt::user::login \$user_info(email) \$user_info(password) " } Index: openacs-4/packages/acs-core-docs/www/tutorial-debug.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/tutorial-debug.adp,v diff -u -r1.4.2.10 -r1.4.2.11 --- openacs-4/packages/acs-core-docs/www/tutorial-debug.adp 9 Sep 2022 11:39:24 -0000 1.4.2.10 +++ openacs-4/packages/acs-core-docs/www/tutorial-debug.adp 9 Sep 2022 13:03:10 -0000 1.4.2.11 @@ -231,7 +231,7 @@ # Make a site-wide admin user for this test # We use an admin to avoid permission issues - array set user_info [twt::user::create -admin -user_id $user_id] + array set user_info [acs::test::user::create -admin -user_id $user_id] # Login the user twt::user::login $user_info(email) $user_info(password) @@ -292,7 +292,7 @@ } -teardown_code { - twt::user::delete -user_id $user_id + acs::test::user::delete -user_id $user_id } } Index: openacs-4/packages/acs-core-docs/www/tutorial-debug.html =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/tutorial-debug.html,v diff -u -r1.46.2.7 -r1.46.2.8 --- openacs-4/packages/acs-core-docs/www/tutorial-debug.html 9 Sep 2022 11:39:24 -0000 1.46.2.7 +++ openacs-4/packages/acs-core-docs/www/tutorial-debug.html 9 Sep 2022 13:03:10 -0000 1.46.2.8 @@ -149,7 +149,7 @@ # Make a site-wide admin user for this test # We use an admin to avoid permission issues - array set user_info [twt::user::create -admin -user_id $user_id] + array set user_info [acs::test::user::create -admin -user_id $user_id] # Login the user twt::user::login $user_info(email) $user_info(password) @@ -210,7 +210,7 @@ } -teardown_code { - twt::user::delete -user_id $user_id + acs::test::user::delete -user_id $user_id } } Index: openacs-4/packages/acs-core-docs/www/files/tutorial/myfirstpackage-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/files/tutorial/myfirstpackage-procs.tcl,v diff -u -r1.10.2.1 -r1.10.2.2 --- openacs-4/packages/acs-core-docs/www/files/tutorial/myfirstpackage-procs.tcl 9 Sep 2022 11:39:24 -0000 1.10.2.1 +++ openacs-4/packages/acs-core-docs/www/files/tutorial/myfirstpackage-procs.tcl 9 Sep 2022 13:03:10 -0000 1.10.2.2 @@ -79,7 +79,7 @@ # Make a site-wide admin user for this test # We use an admin to avoid permission issues - array set user_info [twt::user::create -admin -user_id $user_id] + array set user_info [acs::test::user::create -admin -user_id $user_id] # Login the user twt::user::login $user_info(email) $user_info(password) @@ -140,7 +140,7 @@ } -teardown_code { - twt::user::delete -user_id $user_id + acs::test::user::delete -user_id $user_id } } Index: openacs-4/packages/assessment/tcl/test/twt-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/test/twt-procs.tcl,v diff -u -r1.6 -r1.6.2.1 --- openacs-4/packages/assessment/tcl/test/twt-procs.tcl 9 Jul 2018 10:13:59 -0000 1.6 +++ openacs-4/packages/assessment/tcl/test/twt-procs.tcl 9 Sep 2022 13:03:10 -0000 1.6.2.1 @@ -19,8 +19,8 @@ set assessment_package_id [site_node::instantiate_and_mount \ -node_name $assessment_url \ -package_key assessment] - array set user [twt::user::create] - array set admin_user [twt::user::create -admin] + array set user [acs::test::user::create] + array set admin_user [acs::test::user::create -admin] twt::user::login $admin_user(email) $admin_user(password) $admin_user(username) @@ -72,9 +72,9 @@ # unmount and uninstantiate apm_package_instance_delete $assessment_package_id - catch {twt::user::delete -user_id $user(user_id)} errmsg + catch {acs::test::user::delete -user_id $user(user_id)} errmsg aa_log $errmsg - catch {twt::user::delete -user_id $admin_user(user_id)} errmsg + catch {acs::test::user::delete -user_id $admin_user(user_id)} errmsg aa_log $errmsg } @@ -91,7 +91,7 @@ db_multirow users q " select user_id from cc_users where email like '%test.test' " { - catch {twt::user::delete -user_id $user_id} errmsg + catch {acs::test::user::delete -user_id $user_id} errmsg aa_log $errmsg } } Index: openacs-4/packages/calendar-portlet/tcl/test/calendar-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/tcl/test/calendar-portlet-procs.tcl,v diff -u -r1.5.2.5 -r1.5.2.6 --- openacs-4/packages/calendar-portlet/tcl/test/calendar-portlet-procs.tcl 6 Oct 2020 16:57:31 -0000 1.5.2.5 +++ openacs-4/packages/calendar-portlet/tcl/test/calendar-portlet-procs.tcl 9 Sep 2022 13:03:10 -0000 1.5.2.6 @@ -15,7 +15,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) calendar_portlet::twt::go_to_dotlrn_calendar_page_url @@ -40,7 +40,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) calendar_portlet::twt::go_to_dotlrn_calendar_page_url @@ -73,7 +73,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) calendar_portlet::twt::go_to_dotlrn_calendar_page_url @@ -98,7 +98,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) calendar_portlet::twt::go_to_dotlrn_calendar_page_url @@ -127,7 +127,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) calendar_portlet::twt::go_to_dotlrn_calendar_page_url @@ -161,7 +161,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) calendar_portlet::twt::go_to_dotlrn_calendar_page_url @@ -195,7 +195,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) calendar_portlet::twt::go_to_dotlrn_calendar_page_url @@ -239,7 +239,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) calendar_portlet::twt::go_to_dotlrn_calendar_page_url @@ -268,7 +268,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) calendar_portlet::twt::go_to_dotlrn_calendar_page_url @@ -298,7 +298,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) calendar_portlet::twt::go_to_dotlrn_calendar_page_url Index: openacs-4/packages/dotlrn/tcl/test/dotlrn-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/test/dotlrn-procs.tcl,v diff -u -r1.4.2.2 -r1.4.2.3 --- openacs-4/packages/dotlrn/tcl/test/dotlrn-procs.tcl 26 Feb 2021 14:37:37 -0000 1.4.2.2 +++ openacs-4/packages/dotlrn/tcl/test/dotlrn-procs.tcl 9 Sep 2022 13:03:10 -0000 1.4.2.3 @@ -15,7 +15,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create new Term @@ -46,7 +46,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create new Term @@ -85,7 +85,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create a new Department @@ -108,7 +108,7 @@ aa_run_with_teardown -test_code { tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create a new Department @@ -132,7 +132,7 @@ aa_run_with_teardown -test_code { tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create a new Department @@ -160,7 +160,7 @@ aa_run_with_teardown -test_code { tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create a new Department @@ -191,7 +191,7 @@ aa_run_with_teardown -test_code { tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create a new Department @@ -223,7 +223,7 @@ aa_run_with_teardown -test_code { tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create a new Department @@ -258,7 +258,7 @@ aa_run_with_teardown -test_code { tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create a New Community Index: openacs-4/packages/evaluation-portlet/tcl/test/evaluation-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/tcl/test/evaluation-portlet-procs.tcl,v diff -u -r1.5.2.6 -r1.5.2.7 --- openacs-4/packages/evaluation-portlet/tcl/test/evaluation-portlet-procs.tcl 6 Oct 2020 15:15:11 -0000 1.5.2.6 +++ openacs-4/packages/evaluation-portlet/tcl/test/evaluation-portlet-procs.tcl 9 Sep 2022 13:03:10 -0000 1.5.2.7 @@ -17,7 +17,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -47,7 +47,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -82,7 +82,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -120,7 +120,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -160,7 +160,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -193,7 +193,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -230,7 +230,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -263,7 +263,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -294,7 +294,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -329,7 +329,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -367,7 +367,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -407,7 +407,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -440,7 +440,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -477,7 +477,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -510,7 +510,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -542,7 +542,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -577,7 +577,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -615,7 +615,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -656,7 +656,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -689,7 +689,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -726,7 +726,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -759,7 +759,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Request a notification GradeBook @@ -782,7 +782,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) set class_material_url [evaluation::twt::get_evaluation_url] @@ -804,7 +804,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Unsubscribe a notification GradeBook @@ -829,7 +829,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Unsubscribing a notification Evaluation @@ -854,7 +854,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) set class_material_url [evaluation::twt::get_evaluation_url] Index: openacs-4/packages/faq/tcl/test/faq-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/faq/tcl/test/faq-procs.tcl,v diff -u -r1.5 -r1.5.2.1 --- openacs-4/packages/faq/tcl/test/faq-procs.tcl 12 Jul 2018 12:39:45 -0000 1.5 +++ openacs-4/packages/faq/tcl/test/faq-procs.tcl 9 Sep 2022 13:03:10 -0000 1.5.2.1 @@ -13,7 +13,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create a new Faq @@ -35,7 +35,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create a new Faq @@ -59,7 +59,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create a new Faq @@ -83,7 +83,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create a new Faq @@ -108,7 +108,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create a new Faq @@ -133,7 +133,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create a new Faq @@ -162,7 +162,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create a new Faq @@ -188,7 +188,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create a new Faq @@ -217,7 +217,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create a new Faq @@ -248,7 +248,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create a new Faq @@ -277,7 +277,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create a new Faq @@ -306,7 +306,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) set faq_name [ad_generate_random_string] Index: openacs-4/packages/faq-portlet/tcl/test/faq-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/faq-portlet/tcl/test/faq-portlet-procs.tcl,v diff -u -r1.4.2.5 -r1.4.2.6 --- openacs-4/packages/faq-portlet/tcl/test/faq-portlet-procs.tcl 5 Oct 2020 13:46:14 -0000 1.4.2.5 +++ openacs-4/packages/faq-portlet/tcl/test/faq-portlet-procs.tcl 9 Sep 2022 13:03:10 -0000 1.4.2.6 @@ -14,7 +14,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create new Faq @@ -35,7 +35,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create a new Faq @@ -59,7 +59,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create new faq @@ -84,7 +84,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create the Faq @@ -113,7 +113,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create a new faq @@ -138,7 +138,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create a new faq @@ -164,7 +164,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Create a new faq Index: openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl,v diff -u -r1.10.2.18 -r1.10.2.19 --- openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl 24 Aug 2022 08:58:59 -0000 1.10.2.18 +++ openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl 9 Sep 2022 13:03:10 -0000 1.10.2.19 @@ -205,7 +205,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) file_storage::twt::call_fs_page @@ -244,7 +244,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) file_storage::twt::call_fs_page @@ -279,7 +279,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) file_storage::twt::call_fs_page @@ -316,7 +316,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) file_storage::twt::call_fs_page