_acs-tcl__word_diff (private)
_acs-tcl__word_diff
Defined in packages/acs-tcl/tcl/test/utilities-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 {{ # # Equal length # set cases { { -name "add" -old "hello world" -new "hello2 world" -result {hello<u><b><font color="red">2</font></b></u> world} } { -name "delete" -old "hello2 world" -new "hello world" -result {hello<strike><i><font color="blue">2</font></i></strike> world} } { -name "add begin end" -old "ello" -new "hello2" -result {<u><b><font color="red">h</font></b></u>ello<u><b><font color="red">2</font></b></u>} } { -name "delete begin end" -old "hello2" -new "ello" -result {<strike><i><font color="blue">h</font></i></strike>ello<strike><i><font color="blue">2</font></i></strike>} } } foreach case $cases { aa_equals "diff [dict get $case -name]" [util::word_diff -old [dict get $case -old] -new [dict get $case -new]] [dict get $case -result] } }} { 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" "word_diff (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle