_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):
%3 aa_log aa_log (public) aa_log_result aa_log_result (public) aa_true aa_true (public) util::resources::resource_info_procs util::resources::resource_info_procs (public) _acs-tcl__resource_info_dicts _acs-tcl__resource_info_dicts _acs-tcl__resource_info_dicts->aa_log _acs-tcl__resource_info_dicts->aa_log_result _acs-tcl__resource_info_dicts->aa_true _acs-tcl__resource_info_dicts->util::resources::resource_info_procs

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
[ hide source ] | [ make this the default ]
Show another procedure: