throttle_mod-test-procs.tcl

Automated tests for throttle_mod.

Location:
packages/xotcl-request-monitor/tcl/test/throttle_mod-test-procs.tcl
Created:
2019-06-26
Author:
Héctor Romojaro

Procedures in this file

Detailed information

_xotcl-request-monitor__ad_string_truncate_middle (private)

 _xotcl-request-monitor__ad_string_truncate_middle

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) ad_string_truncate_middle ad_string_truncate_middle (public) _xotcl-request-monitor__ad_string_truncate_middle _xotcl-request-monitor__ad_string_truncate_middle _xotcl-request-monitor__ad_string_truncate_middle->aa_equals _xotcl-request-monitor__ad_string_truncate_middle->aa_log _xotcl-request-monitor__ad_string_truncate_middle->aa_log_result _xotcl-request-monitor__ad_string_truncate_middle->ad_string_truncate_middle

Testcases:
No testcase defined.
[ hide source ] | [ make this the default ]

Content File Source

ad_library {
    Automated tests for throttle_mod.

    @author Héctor Romojaro <hector.romojaro@gmail.com>
    @creation-date 2019-06-26
}

aa_register_case \
    -cats {api smoke production_safe} \
    -procs {ad_string_truncate_middle} \
    ad_string_truncate_middle {

        Test the ad_string_truncate_middle proc

        @author Hanifa Hasan
} {
    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"
}

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: