authority-procs.tcl

Automated tests for procs in tcl/authority-procs.tcl

Location:
packages/acs-authentication/tcl/test/authority-procs.tcl

Procedures in this file

Detailed information

_acs-authentication__authority__get_sc_impl_columns (private)

 _acs-authentication__authority__get_sc_impl_columns

Partial Call Graph (max 5 caller/called nodes):
%3 aa_equals aa_equals (public) aa_log aa_log (public) aa_log_result aa_log_result (public) ad_acs_version ad_acs_version (public) apm_version_names_compare apm_version_names_compare (public) _acs-authentication__authority__get_sc_impl_columns _acs-authentication__authority__get_sc_impl_columns _acs-authentication__authority__get_sc_impl_columns->aa_equals _acs-authentication__authority__get_sc_impl_columns->aa_log _acs-authentication__authority__get_sc_impl_columns->aa_log_result _acs-authentication__authority__get_sc_impl_columns->ad_acs_version _acs-authentication__authority__get_sc_impl_columns->apm_version_names_compare

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

Content File Source

ad_library {

    Automated tests for procs in tcl/authority-procs.tcl

}

aa_register_case \
    -cats {api} \
    -procs {
        auth::authority::get_sc_impl_columns
    } \
    authority__get_sc_impl_columns {
        Test authority::get_sc_impl_columns
    } {
        set columns {
            auth_impl_id
            pwd_impl_id
            register_impl_id
            user_info_impl_id
            get_doc_impl_id
            process_doc_impl_id
        }
        if {[apm_version_names_compare [ad_acs_version] 5.5.0] > -1} {
            lappend columns search_impl_id
        }

        aa_equals "Proc returns expected result" \
            $columns [auth::authority::get_sc_impl_columns]
    }


# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: