_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