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 -N -r1.71.2.6 -r1.71.2.7
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	29 Mar 2019 14:22:49 -0000	1.71.2.6
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	16 Apr 2019 18:18:20 -0000	1.71.2.7
@@ -1270,92 +1270,8 @@
 
 }
 
-
 aa_register_case \
     -cats {api smoke} \
-    -procs {
-        parameter::get parameter::get_from_package_key
-        parameter::set_default parameter::set_default
-        parameter::set_value parameter::set_from_package_key
-        parameter::set_global_value parameter::get_global_value
-    } \
-    parameter__check_procs {
-        Test the parameter::* procs
-
-        @author Rocael Hernandez (roc@viaro.net)
-} {
-
-    aa_run_with_teardown \
-        -rollback \
-        -test_code {
-
-            aa_log "Test global parameter functionality"
-            set parameter_id [db_nextval "acs_object_id_seq"]
-            apm_parameter_register -parameter_id $parameter_id -scope global x_test_x "" acs-tcl 0 number
-            parameter::set_global_value -package_key acs-tcl -parameter x_test_x -value 3
-            aa_equals "check global parameter value set/get" \
-                [parameter::get_global_value -package_key acs-tcl -parameter x_test_x] \
-                "3"
-            apm_parameter_unregister $parameter_id
-
-            foreach tuple [db_list_of_lists get_param {
-                select ap.parameter_name, ap.package_key, ap.default_value, ap.parameter_id
-                from apm_parameters ap, apm_package_types apt
-                where
-                ap.package_key = apt.package_key
-                and apt.singleton_p ='t'
-                and ap.package_key <> 'acs-kernel' and ap.package_key <> 'search'
-            }] {
-
-                lassign $tuple parameter_name package_key default_value parameter_id
-                set value [random]
-                if {$parameter_name ne "PasswordExpirationDays" && $value > 0.7} {
-
-                    set package_id [apm_package_id_from_key $package_key]
-                    set actual_value [db_string real_value {
-                        select apm_parameter_values.attr_value
-                        from   apm_parameter_values
-                        where apm_parameter_values.package_id = :package_id
-                        and apm_parameter_values.parameter_id = :parameter_id
-                    }]
-
-                    aa_log "$package_key $parameter_name $actual_value"
-                    aa_equals "check parameter::get" \
-                        [parameter::get -package_id $package_id -parameter $parameter_name] \
-                        $actual_value
-                    aa_equals "check parameter::get_from_package_key" \
-                        [parameter::get_from_package_key -package_key $package_key -parameter $parameter_name] \
-                        $actual_value
-
-                    parameter::set_default -package_key $package_key -parameter $parameter_name -value $value
-                    set value_db [db_string get_values {
-                        select default_value from apm_parameters
-                        where package_key = :package_key and parameter_name = :parameter_name
-                    }]
-                    aa_equals "check parameter::set_default" $value $value_db
-                    set value [expr {$value + 10}]
-
-                    parameter::set_from_package_key -package_key $package_key -parameter $parameter_name -value $value
-                    aa_equals "check parameter::set_from_package_key" \
-                        [parameter::get -package_id $package_id -parameter $parameter_name] \
-                        $value
-
-                    set value [expr {$value + 10}]
-                    parameter::set_value -package_id $package_id -parameter $parameter_name -value $value
-                    aa_equals "check parameter::set_value" \
-                        [parameter::get -package_id $package_id -parameter $parameter_name] \
-                        $value
-
-                    ad_parameter_cache -delete $package_id $parameter_name
-
-                    break
-                }
-            }
-    }
-}
-
-aa_register_case \
-    -cats {api smoke} \
     -procs acs_object::package_id \
     acs_object__package_id {
         Tests the acs_object__package_id procedure