_acs-tcl__parameter__check_procs (private)
_acs-tcl__parameter__check_procs
Defined in packages/acs-tcl/tcl/test/apm-parameter-test-procs.tcl
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: set _aa_export {} set body_count 1 foreach testcase_body {{ 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 $parameter_id db_foreach get_params { 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 ap.scope = 'instance' and apt.singleton_p = 't' } { aa_section "$package_key - $parameter_name" # # parameter::* API currently does not support changing # the value of parameters that are defined in the # server configuration file. # set file_value [ad_parameter_from_configuration_file $parameter_name $package_key] if {$file_value ne ""} { continue } # # Instance parameters have a value only when a package # is mounted. This is not always true for a singleton # package. # set package_id [apm_package_id_from_key $package_key] if {$package_id == 0} { continue } set value [util::random] 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 parameter::set_from_package_key -package_key $package_key -parameter $parameter_name -value $actual_value parameter::set_value -package_id $package_id -parameter $parameter_name -value $actual_value parameter::set_default -package_key $package_key -parameter $parameter_name -value $default_value } } }} { aa_log "Running testcase body $body_count" set ::__aa_test_indent [info level] set catch_val [catch $testcase_body msg] if {$catch_val != 0 && $catch_val != 2} { aa_log_result "fail" "parameter__check_procs (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle