_acs-bootstrap-installer__ad_log_deprecated (private)
_acs-bootstrap-installer__ad_log_deprecated
Defined in packages/acs-bootstrap-installer/tcl/test/00-proc-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 {{ # # Trace-sandwich to intercept the log, expected by the call. # trace add execution ns_log enter {apply {args { nsv_set __test_ad_log_deprecated . $args }}} ad_log_deprecated proc _old_test_command_ _new_test_command_ trace remove execution ns_log enter {apply {args { nsv_set __test_ad_log_deprecated . $args }}} set result [nsv_get __test_ad_log_deprecated .] aa_true "A warning was logged by the system" {[string first "ns_log warning" [string tolower $result]] >= 0} aa_true "Warning message contains the two test procs" { [string first _old_test_command_ $result] >= 0 && [string first _new_test_command_ $result] >= 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" "ad_log_deprecated (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle