_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