_acs-tcl__apm_dependencies_api (private)
_acs-tcl__apm_dependencies_api
Defined in packages/acs-tcl/tcl/test/apm-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 {{ foreach package_key [db_list get_packages { select package_key from apm_package_types p where exists (select 1 from apm_package_version_info where package_key = p.package_key and enabled_p) }] { set db_dependencies [db_list get_dependencies { with recursive dependencies as ( select apv.package_key, apd.service_uri as dependency_package_key from apm_package_versions apv, apm_package_dependencies apd where apv.package_key = :package_key and apv.installed_p = 't' and apd.version_id = apv.version_id and apd.dependency_type in ('requires', 'embeds', 'extends') union select apv.package_key, apd.service_uri as dependency_package_key from apm_package_versions apv, apm_package_dependencies apd, dependencies d where apv.package_key = d.dependency_package_key and apv.installed_p = 't' and apd.version_id = apv.version_id and apd.dependency_type in ('requires', 'embeds', 'extends') ) select distinct dependency_package_key from dependencies }] lappend db_dependencies $package_key set api_dependencies [apm_package_load_libraries_order $package_key] aa_equals "Dependencies from api and db for '$package_key' are the same" [lsort $api_dependencies] [lsort $db_dependencies] } }} { 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" "apm_dependencies_api (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle