apm-install-procs.tcl

Tests for api in /tcl/apm-install-procs.tcl

Location:
packages/acs-tcl/tcl/test/apm-install-procs.tcl

Procedures in this file

Detailed information

_acs-tcl__apm_respositories_api (private)

 _acs-tcl__apm_respositories_api

Partial Call Graph (max 5 caller/called nodes):
%3 aa_equals aa_equals (public) aa_false aa_false (public) aa_log aa_log (public) aa_log_result aa_log_result (public) apm_get_repository_channels apm_get_repository_channels (public) _acs-tcl__apm_respositories_api _acs-tcl__apm_respositories_api _acs-tcl__apm_respositories_api->aa_equals _acs-tcl__apm_respositories_api->aa_false _acs-tcl__apm_respositories_api->aa_log _acs-tcl__apm_respositories_api->aa_log_result _acs-tcl__apm_respositories_api->apm_get_repository_channels

Testcases:
No testcase defined.
[ hide source ] | [ make this the default ]

Content File Source

ad_library {

    Tests for api in /tcl/apm-install-procs.tcl

}

aa_register_case \
    -cats {api smoke} \
    -procs {
        apm_get_repository_channels
    } \
    apm_respositories_api {
        Check the API to retrieve upstream repositories
    } {
        set repos failed

        aa_false "Fetching the repos succeeds" \
            [catch {set repos [apm_get_repository_channels]} errmsg]

        foreach repo $repos {
            aa_equals "Repo entry '$repo' is made by 2 elements" \
                [llength $repo] 2
        }
    }