Index: openacs-4/packages/acs-admin/tcl/test/acs-admin-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/tcl/test/acs-admin-procs.tcl,v
diff -u -r1.6.2.7 -r1.6.2.8
--- openacs-4/packages/acs-admin/tcl/test/acs-admin-procs.tcl 1 Feb 2021 10:56:39 -0000 1.6.2.7
+++ openacs-4/packages/acs-admin/tcl/test/acs-admin-procs.tcl 15 Feb 2021 13:27:30 -0000 1.6.2.8
@@ -31,6 +31,7 @@
api smoke
} -procs {
acs_admin::check_expired_certificates
+ aa_stub
} acs_admin_check_expired_certificates {
Check acs_admin::check_expired_certificates
} {
@@ -92,6 +93,12 @@
api smoke
} -procs {
merge::MergeUserInfo
+ acs::test::user::create
+ acs_user::create_portrait
+ acs_user::get_portrait_id
+ ad_tmpnam
+ permission::grant
+ permission::permission_p
} acs_admin_merge_MergeUserInfo {
Check merge::MergeUserInfo
} {
@@ -163,6 +170,7 @@
} -procs {
acs_admin::require_site_wide_subsite
acs_admin::require_site_wide_package
+ site_node::get
} acs_admin_require_site_wide {
Basic check for acs_admin::require_site_wide_subsite and
acs_admin::require_site_wide_package
Index: openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl,v
diff -u -r1.4.2.20 -r1.4.2.21
--- openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl 28 Oct 2020 15:39:18 -0000 1.4.2.20
+++ openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl 15 Feb 2021 13:27:30 -0000 1.4.2.21
@@ -110,6 +110,7 @@
-cats { api smoke production_safe } \
-procs {
api_describe_function
+ ad_looks_like_html_p
} \
acs_api_browser_api_describe_function {
Check api_describe_function
@@ -156,6 +157,7 @@
-cats { api smoke production_safe } \
-procs {
api_proc_documentation
+ ad_looks_like_html_p
} \
acs_api_browser_api_proc_documentation {
Check api_proc_documentation
@@ -233,6 +235,7 @@
-cats { api smoke } \
-procs {
api_read_script_documentation
+ acs_root_dir
} \
acs_api_browser_api_read_script_documentation {
Check api_read_script_documentation
@@ -310,6 +313,7 @@
-cats { api smoke production_safe } \
-procs {
apidoc::format_see
+ ad_looks_like_html_p
} \
acs_api_browser_apidoc_format_see {
Check apidoc::format_see
@@ -339,6 +343,8 @@
-cats { api smoke production_safe } \
-procs {
apidoc::tclcode_to_html
+ ad_looks_like_html_p
+ ad_urldecode_query
} \
acs_api_browser_apidoc_tclcode_to_html {
Check apidoc::tclcode_to_html
Index: openacs-4/packages/acs-lang/tcl/test/acs-lang-localization-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/test/acs-lang-localization-procs.tcl,v
diff -u -r1.4.2.6 -r1.4.2.7
--- openacs-4/packages/acs-lang/tcl/test/acs-lang-localization-procs.tcl 1 Sep 2020 17:27:24 -0000 1.4.2.6
+++ openacs-4/packages/acs-lang/tcl/test/acs-lang-localization-procs.tcl 15 Feb 2021 13:27:30 -0000 1.4.2.7
@@ -93,8 +93,11 @@
aa_register_case \
-cats {api smoke production_safe} \
- -procs lc_content_size_pretty \
- lang_test__lc_content_size_pretty {
+ -procs {
+ lc_get
+ lc_numeric
+ lc_content_size_pretty
+ } lang_test__lc_content_size_pretty {
Test lc_content_size_pretty proc
Index: openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl,v
diff -u -r1.28.2.15 -r1.28.2.16
--- openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl 19 Jan 2021 12:10:05 -0000 1.28.2.15
+++ openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl 15 Feb 2021 13:27:30 -0000 1.28.2.16
@@ -495,6 +495,8 @@
lang::test::get_dir
lang::util::get_temporary_tags_indices
lang::util::replace_temporary_tags_with_lookups
+ aa_stub
+ aa_unstub
} util__replace_temporary_tags_with_lookups {
A test Tcl file and catalog file are created. The temporary tags in the
@@ -770,6 +772,7 @@
lang::system::set_locale
lang::system::site_wide_locale
parameter::set_value
+ parameter::get
} locale__test_system_package_setting {
Tests whether the system package level setting works
@@ -817,10 +820,11 @@
}
aa_register_case \
- -procs {
- lang::conn::browser_locale
- lang::system::locale_set_enabled
- } locale__test_lang_conn_browser_locale {
+ -procs {
+ lang::conn::browser_locale
+ lang::system::locale_set_enabled
+ lang::test::assert_browser_locale
+ } locale__test_lang_conn_browser_locale {
@author Peter Marklund
@creation-date 2003-08-13
@@ -872,6 +876,7 @@
lang::user::set_timezone
lang::user::timezone
lc_list_all_timezones
+ util::random_range
} set_get_timezone {
Test that setting and getting user timezone works
@@ -990,8 +995,10 @@
aa_register_case \
-procs {
+ lang::catalog::import
lang::message::lookup
lang::message::register
+ lang::system::locale_set_enabled
} locale_language_fallback {
Test that we fall back to 'default locale for language' when requesting a message
which exists in default locale for language, but not in the current locale
@@ -1196,7 +1203,9 @@
}
aa_register_case \
- -procs {} catalog_files_are_tdom_parsable_xml {
+ -procs {
+ ::lang::catalog::get_catalog_paths_for_import
+ } catalog_files_are_tdom_parsable_xml {
Make sure that what is found in catalog files is parsable by
tDOM. Note that the files are neither "valid XML" nor
Index: openacs-4/packages/acs-mail-lite/tcl/test/email-inbound-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/test/email-inbound-procs.tcl,v
diff -u -r1.7.2.9 -r1.7.2.10
--- openacs-4/packages/acs-mail-lite/tcl/test/email-inbound-procs.tcl 15 Dec 2020 13:14:00 -0000 1.7.2.9
+++ openacs-4/packages/acs-mail-lite/tcl/test/email-inbound-procs.tcl 15 Feb 2021 13:27:30 -0000 1.7.2.10
@@ -19,8 +19,14 @@
acs_mail_lite::unique_id_parse
ad_system_owner
apm_package_id_from_key
- f::lmax
party::get_by_email
+ acs_root_dir
+ mime::uniqueID
+ template::util::is_true
+ util::random
+ util::random_list_element
+ util::random_range
+ util::randomize_list
} acs_mail_lite_inbound_procs_check {
Test acs-mail-lite procs in email-inbound-procs.tcl
} {
@@ -243,7 +249,7 @@
foreach section $ns_section_list {
lappend size_list [ns_config -int -min 0 $section maxinput]
}
- set s0 [f::lmax $size_list]
+ set s0 [tcl::mathfunc::max {*}$size_list]
aa_log "r161 given: t0 '${t0}' dur_s '${dur_s}'"
aa_log "r161b given: s0 '${s0}' su_max '${su_max}'"
Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl,v
diff -u -r1.71.2.29 -r1.71.2.30
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl 18 Aug 2020 15:32:27 -0000 1.71.2.29
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl 15 Feb 2021 13:27:30 -0000 1.71.2.30
@@ -1376,7 +1376,9 @@
aa_register_case \
-cats {api smoke} \
- -procs acs_user::registered_user_p \
+ -procs {
+ acs_user::registered_user_p
+ } \
acs_user__registered_user_p {
Tests the acs_user::registered_user_p procedure
@@ -1403,6 +1405,7 @@
-procs {
acs_user::ban
acs_user::approve
+ acs_user::registered_user_p
} \
acs_user__ban_approve {
Tests the acs_user::ban and acs_user::approve procs
Index: openacs-4/packages/acs-tcl/tcl/test/object-test-case-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/object-test-case-procs.tcl,v
diff -u -r1.9.2.2 -r1.9.2.3
--- openacs-4/packages/acs-tcl/tcl/test/object-test-case-procs.tcl 2 Sep 2019 16:22:07 -0000 1.9.2.2
+++ openacs-4/packages/acs-tcl/tcl/test/object-test-case-procs.tcl 15 Feb 2021 13:27:30 -0000 1.9.2.3
@@ -13,6 +13,7 @@
acs_object::set_context_id
db_name
db_nextval
+ apm_package_id_from_key
} acs_object_procs_test \
{
test the acs_object::* procs