_acs-tcl__test_apm_parameter__register (private)

 _acs-tcl__test_apm_parameter__register

Defined in packages/acs-tcl/tcl/test/acs-tcl-apm-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 {

        set package_list [db_list get_packages {
            select package_key
              from apm_enabled_package_versions
        }]
        aa_log "List of packages: [list $package_list]"
        set list_index [util::random_range [expr {[llength $package_list] - 1}]]
        set package_key [lrange $package_list $list_index $list_index]
        set parameter_name  [ad_generate_random_string]
        set description     [ad_generate_random_string]

        set values { {number} {string} }
        set index [util::random_range 1]

        #
        # Choose randomly string or number parameter.  Also choose
        # randomly its default value in the string case.
        #
        set datatype [lrange $values $index $index]
        if {$datatype eq "number"} {
            set default_value 0
        } else {
            set default_value [ad_generate_random_string]
        }

        aa_log "$package_key parameter to be added: name $parameter_name
        descr $description
        datatype $datatype
        default_value $default_value"

        set parameter_id [apm_parameter_register  $parameter_name  $description  $package_key  $default_value  $datatype]

        aa_true "$package_key parameter register succeeded"  {$parameter_id ne ""}

    }
}} {
          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" "test_apm_parameter__register (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo"
          }
          incr body_count
        }

XQL Not present:

Generic, PostgreSQL, Oracle