_xotcl-request-monitor__ad_string_truncate_middle (private)

 _xotcl-request-monitor__ad_string_truncate_middle

Defined in packages/xotcl-request-monitor/tcl/test/throttle_mod-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 {{
    set full_string "sadlfvnsaödcösalcmksadöldcmsasdcsadvwaef4q3t54zbrefsydfsd"
    aa_equals "Empty ellipsis short length" [ad_string_truncate_middle -ellipsis "" -len 5 $full_string ] "sasd"
    aa_equals "Empty ellipsis"              [ad_string_truncate_middle -ellipsis "" $full_string ] "sadlfvnsaödcösalcmksadöldcmsasdcsadvwaef4q3t54zbrefsydfsd" 
    aa_equals "No length"                   [ad_string_truncate_middle -ellipsis ":::::::::::" $full_string ] "sadlfvnsaödcösalcmksadöldcmsasdcsadvwaef4q3t54zbrefsydfsd"
    aa_equals "Short length"                [ad_string_truncate_middle -ellipsis ":::::::::::" -len 10 $full_string ] "sadlf:::::::::::ydfsd"
    aa_equals "Default options"             [ad_string_truncate_middle $full_string ] "sadlfvnsaödcösalcmksadöldcmsasdcsadvwaef4q3t54zbrefsydfsd"
    aa_equals "Length 0, default ellipsis"  [ad_string_truncate_middle -len 0 $full_string ] "..."
    aa_equals "Length 25, default ellipsis" [ad_string_truncate_middle -len 25 $full_string ] "sadlfvnsaödc...4zbrefsydfsd"
}} {
          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_string_truncate_middle (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo"
          }
          incr body_count
        }

XQL Not present:

Generic, PostgreSQL, Oracle