_xotcl-core__test_xo_cc (private)

 _xotcl-core__test_xo_cc

Defined in packages/xotcl-core/tcl/test/context-test-procs.tcl

Partial Call Graph (max 5 caller/called nodes):
%3 _ _ (public) aa_equals aa_equals (public) aa_log aa_log (public) aa_log_result aa_log_result (public) aa_run_with_teardown aa_run_with_teardown (public) _xotcl-core__test_xo_cc _xotcl-core__test_xo_cc _xotcl-core__test_xo_cc->_ _xotcl-core__test_xo_cc->aa_equals _xotcl-core__test_xo_cc->aa_log _xotcl-core__test_xo_cc->aa_log_result _xotcl-core__test_xo_cc->aa_run_with_teardown

Testcases:
No testcase defined.
Source code:
        
        set _aa_export {}
        set body_count 1
        foreach testcase_body {{
    aa_run_with_teardown -test_code {
        ::xo::ConnectionContext require  -url /foo  -package_id 123  -parameter ""  -user_id -1  -actual_query "a=1&b=2&name=dagobert&__name=duck"  
        aa_true "exists xo::cc " {[info commands ::xo::cc] ne ""}
        ::xo::cc destroy_on_cleanup
        aa_log "xo::cc <pre>[::xo::cc serialize]</pre>"
        foreach {param expected} {a 1 b 1 foo 0 name 1 __name 1} {
            aa_equals "exists_query_parameter $param" [::xo::cc exists_query_parameter $param$expected
        }
        foreach {pair expected} {
            {a ""} 1
            {b ""} 2
            {foo """"
            {foo 123} 123
            {name "123""dagobert"
            {__name "123""duck"
        } {
            aa_equals "query_parameter $pair" [::xo::cc query_parameter {*}$pair$expected
        }
        foreach {pair expected} {
            {a:integer ""} 1
            {foo:wordchar "abc""abc"
            {name:alpha "123""dagobert"
        } {
            aa_equals "query_parameter $pair" [::xo::cc query_parameter {*}$pair$expected
        }
        if {[::acs::icanuse "nsf::parseargs -asdict"]} {
            #
            # The implementation based on "nsf::parseargs" without
            # "-asdict" clobbers local variables and might overwrite
            # "__name".
            #
            foreach {pair expected} {
                {__name:alpha "123""duck"
            } {
                aa_equals "query_parameter $pair" [::xo::cc query_parameter {*}$pair$expected
            }
        }
        #
        # Avoid script_abort when value constraint fails
        #
        set ::aa_test_noabort 1

        foreach {pair expected} {
            {a:alpha ""} {expected alpha but got "1" for parameter "a"}
        } {
            set failed [catch {[::xo::cc query_parameter {*}$pair]} errorMsg]
            aa_equals "query_parameter $pair" $errorMsg $expected
        }
    }
}} {
          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" "test_xo_cc (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo"
          }
          incr body_count
        }
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: