_acs-automated-testing__aa__coverage_proc_proc_list_covered (private)
_acs-automated-testing__aa__coverage_proc_proc_list_covered
Defined in packages/acs-automated-testing/tcl/test/acs-automated-testing-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 {{ set total_proc_list [aa::coverage::proc_list] foreach proc_info $total_proc_list { dict with proc_info { aa_equals "global: dict size" "[dict size $proc_info]" "3" aa_true "global: package_key not empty" {[dict get $proc_info package_key] ne ""} aa_true "global: proc_name not empty" {[dict get $proc_info proc_name] ne ""} aa_true "global proc $proc_name: covered_p is boolean" {[string is boolean [dict get $proc_info covered_p]]} aa_true "global proc $proc_name: covered_p and aa::coverage::proc_covered_p are coherent" { bool([dict get $proc_info covered_p]) == bool([aa::coverage::proc_covered_p [dict get $proc_info proc_name]]) } } } set package_list {acs-tcl acs-kernel acs-automated-testing} foreach package $package_list { set package_proc_list [aa::coverage::proc_list -package_key $package] foreach proc_info $package_proc_list { dict with proc_info { aa_equals "package $package: dict size" [dict size $proc_info] "2" aa_true "package $package: proc_name not empty" {[dict get $proc_info proc_name] ne ""} aa_true "package $package proc $proc_name: covered_p is boolean" {[string is boolean [dict get $proc_info covered_p]]} aa_true "package $package proc $proc_name: covered_p and aa::coverage::proc_covered_p are coherent" { bool([dict get $proc_info covered_p]) == bool([aa::coverage::proc_covered_p [dict get $proc_info proc_name]]) } } } } }} { 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" "aa__coverage_proc_proc_list_covered (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle