aa::coverage::proc_coverage (public)
aa::coverage::proc_coverage [ -package_key package_key ]
Defined in packages/acs-automated-testing/tcl/coverage-procs.tcl
Calculates the test proc coverage of a particular package. If no 'package_key' is passed, then the system wide test proc coverage is returned.
- Switches:
- -package_key (optional)
- The 'package_key' of the package to check.
- Returns:
- Dict with the number of procs (procs), covered procs (covered) and the coverage percentage (coverage).
- Author:
- Héctor Romojaro
- Created:
- 2019-08-28
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- aa__coverage_proc_coverage
Source code: set procs 0 set procs_covered 0 # # Get proc list to check # if { $package_key ne "" } { set proc_list [aa::coverage::proc_list -package_key $package_key] } else { set proc_list [aa::coverage::proc_list] } # # Count the covered procs # foreach proc_data $proc_list { incr procs if { [dict get $proc_data covered_p] } { incr procs_covered } } # # Return the coverage percentage # if { $procs eq 0 } { set coverage 100.0 } else { set coverage [expr {($procs_covered / ($procs + 0.0)) * 100}] } return "procs $procs covered $procs_covered coverage [format {%0.2f} $coverage]"XQL Not present: Generic, PostgreSQL, Oracle