_file-storage__file_storage_exec_dependencies (private)

 _file-storage__file_storage_exec_dependencies

Defined in packages/file-storage/tcl/test/file-storage-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) db_list db_list (public) util::which util::which (public) _file-storage__file_storage_exec_dependencies _file-storage__file_storage_exec_dependencies _file-storage__file_storage_exec_dependencies->aa_log _file-storage__file_storage_exec_dependencies->aa_log_result _file-storage__file_storage_exec_dependencies->aa_true _file-storage__file_storage_exec_dependencies->db_list _file-storage__file_storage_exec_dependencies->util::which

Testcases:
No testcase defined.
Source code:
        
        set _aa_export {}
        set body_count 1
        foreach testcase_body {{
    set commands [list]
    foreach unzip [db_list instances {
        select distinct trim(attr_value)
          from apm_parameter_values v,
               apm_parameters p
         where v.parameter_id = p.parameter_id
           and p.package_key = 'file-storage'
           and p.scope = 'instance'
           and p.parameter_name = 'UnzipBinary'
    }] {
        lappend commands [::util::which $unzip]
    }
    foreach cmd $commands {
        aa_true "'$cmd' is executable" [file executable $cmd]
    }
}} {
          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" "file_storage_exec_dependencies (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: