_acs-tcl__db_bind_var_substitution (private)
_acs-tcl__db_bind_var_substitution
Defined in packages/acs-tcl/tcl/test/db-proc-test-procs.tcl
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: set _aa_export {} set body_count 1 foreach testcase_body {{ # DRB: Not all of these test cases work for Oracle (select can't be used in # db_exec_plsql) and bindvar substitution is done by Oracle, not the driver, # anyway so there's not much point in testing. These tests really test # Oracle bindvar emulation, in other words... if { [db_type] ne "oracle" } { set sql {to_char(fm.posting_date, 'YYYY-MM-DD HH24:MI:SS')} aa_equals "don't subst bind vars in quoted date" [db_bind_var_substitution $sql {SS 3 MI 4}] $sql set sql {to_char(fm.posting_date, :SS)} aa_equals "don't subst bind vars in quoted date" [db_bind_var_substitution $sql {SS 3 MI 4}] {to_char(fm.posting_date, '3')} set sql {to_char(fm.posting_date, don''t subst ':SS', do subst :SS )} aa_equals "don't subst bind vars in quoted date" [db_bind_var_substitution $sql {SS 3 MI 4}] {to_char(fm.posting_date, don''t subst ':SS', do subst '3' )} set SS 3 set db_value [db_exec_plsql test_bind { select ':SS' }] aa_equals "db_exec_plsql should not bind quoted var" $db_value ":SS" set db_value [db_exec_plsql test_bind { select :SS }] aa_equals "db_exec_plsql bind not quoted var" $db_value "3" } }} { 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" "db_bind_var_substitution (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle