exception-procs.tcl

Test for api in tcl/exception-procs.tcl

Location:
packages/acs-tcl/tcl/test/exception-procs.tcl

Procedures in this file

Detailed information

_acs-tcl__ad_raise_exception (private)

 _acs-tcl__ad_raise_exception

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_exception ad_exception (public) ad_raise ad_raise (public) _acs-tcl__ad_raise_exception _acs-tcl__ad_raise_exception _acs-tcl__ad_raise_exception->aa_equals _acs-tcl__ad_raise_exception->aa_log _acs-tcl__ad_raise_exception->aa_log_result _acs-tcl__ad_raise_exception->ad_exception _acs-tcl__ad_raise_exception->ad_raise

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

Content File Source

ad_library {

    Test for api in tcl/exception-procs.tcl

}

aa_register_case \
    -cats {api smoke production_safe} \
    -procs {
        ad_raise
        ad_exception
    } \
    ad_raise_exception {
        Test the behavior of ad_raise and ad_exception
    } {
        try {
            ad_raise "I am ad_ded" 42
        } on error {e} {
            aa_equals "ad_exception returns expected" \
                [ad_exception $::errorCode] "I am ad_ded"
        }
        try {
            error "I am normal ded"
        } on error {e} {
            aa_equals "ad_exception returns expected" \
                [ad_exception $::errorCode] ""
        }
    }