_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_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