_xotcl-core__test_misc_core (private)

 _xotcl-core__test_misc_core

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

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) aa_true aa_true (public) xo::db::list_to_values xo::db::list_to_values (public) _xotcl-core__test_misc_core _xotcl-core__test_misc_core _xotcl-core__test_misc_core->aa_equals _xotcl-core__test_misc_core->aa_log _xotcl-core__test_misc_core->aa_log_result _xotcl-core__test_misc_core->aa_true _xotcl-core__test_misc_core->xo::db::list_to_values

Testcases:
No testcase defined.
Source code:
        
        set _aa_export {}
        set body_count 1
        foreach testcase_body {{
    ::xo::require_html_procs
    aa_true "html::a exists" {[info commands ::html::a] ne ""}

    aa_equals "xo::db::list_to_values" [xo::db::list_to_values {1 2 3}] {(VALUES ('1'),('2'),('3'))}

    aa_equals "tcl_date from oracle" [::xo::db::tcl_date 2008-08-25 tz_var secfrac_var] 2008-08-25
    aa_equals "tcl_date from oracle TZ and secfrac" "$tz_var $secfrac_var" "00 0"

    aa_equals "tcl_date from PostgreSQL type ANSI format secfrac and TZ"  [::xo::db::tcl_date "2017-08-08 13:19:33.264032+02" tz_var secfrac_var] "2017-08-08 13:19:33"
    aa_equals "tcl_date from PostgreSQL TZ and secfrac" "$tz_var $secfrac_var" "+02 264032"

    aa_equals "tcl_date from PostgreSQL type ANSI format secfrac no TC"  [::xo::db::tcl_date "2017-08-08 13:19:33.264032" tz_var secfrac_var] "2017-08-08 13:19:33"
    aa_equals "tcl_date from PostgreSQL TZ and secfrac" "$tz_var $secfrac_var" "00 264032"

    aa_equals "tcl_date from PostgreSQL type ANSI format no TC"  [::xo::db::tcl_date "2017-08-08 13:19:33" tz_var secfrac_var] "2017-08-08 13:19:33"
    aa_equals "tcl_date from PostgreSQL TZ and secfrac" "$tz_var $secfrac_var" "00 0"
}} {
          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_misc_core (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: