_acs-tcl__resource_info_dicts (private)
_acs-tcl__resource_info_dicts
Defined in packages/acs-tcl/tcl/test/resource-info-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 required_members { cdn cdnHost configuredVersion cssFiles extraFiles jsFiles parameterInfo prefix resourceDir resourceName urnMap } set optional_members { cspMap downloadURLs versionCheckAPI vulnerabilityCheck } foreach resource_info_proc [::util::resources::resource_info_procs] { set resource_info [$resource_info_proc] foreach member $required_members { aa_true "$resource_info_proc resource_info contains $member" {$member in $required_members} } foreach key [dict keys $resource_info] { if {$key ni $required_members && $key ni $optional_members} { aa_log "$resource_info_proc resource_info contains unexpected member '$key'" } } if {[dict exists $resource_info urnMap] && [dict get $resource_info urnMap] ne ""} { aa_true "$resource_info_proc resource_info cspMap exists" [dict exists $resource_info cspMap] if {[dict exists $resource_info cspMap] && [dict get $resource_info cdnHost] ne ""} { aa_true "$resource_info_proc resource_info cspMap must not be empty" {[dict get $resource_info cspMap] 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" "resource_info_dicts (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle