_acs-templating__spellcheck__get_element_formtext (private)
_acs-templating__spellcheck__get_element_formtext
Defined in packages/acs-templating/tcl/test/spell-checker-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 SpellcheckFormWidgets [parameter::get_from_package_key -package_key acs-templating -parameter SpellcheckFormWidgets] set enabled 0 foreach {widget value} $SpellcheckFormWidgets { if {!$value} continue set enabled 1 break } if {!$enabled} { aa_log "Spell checking is not enabled. If you want to enable it, specify it via package parameter SpellcheckFormWidgets" return } set base_command [list template::util::spellcheck::get_element_formtext -var_to_spellcheck var_to_spellcheck -error_num_ref error_num -no_abort -formtext_to_display_ref formtext_to_display -just_the_errwords_ref just_the_errwords] ##### # # Plain text without spelling mistakes # ##### set command $base_command lappend command -text "This sentence does not contain any misspelled words. What we have here is plain text." aa_log "--- Correct text --- $command" if {[catch {eval $command} errorMsg]} { aa_false $errorMsg 1 aa_log "Have you installed aspell and aspell-dict-en ?" return } aa_true "True statement: Text contains no misspelled words" {$error_num == 0} aa_log "Number of miss-spelled words found in text: $error_num" aa_false "False statement: Text contains misspelled word(s)" {$error_num > 0} aa_equals "Number of misspelled words found in text" $error_num 0 aa_log "Returned string: $formtext_to_display" aa_true "The returned string contains a hidden var named 'var_to_spellcheck.merge_text'" [regexp "var_to_spellcheck.merge_text" $formtext_to_display] aa_true "The returned string contains no hidden var(s) named 'var_to_spellcheck.error_N', where N is the error number." ![regexp "var_to_spellcheck.error_\[0-9\]*" $formtext_to_display] aa_true "just_the_errwords is empty" {$just_the_errwords eq ""} ##### # # Plain text with spelling mistakes # ##### set command $base_command lappend command -text "I obviosly can't spel very well ..." set errwords {obviosly spel} aa_log "--- Incorrect text --- $command" if {[catch {eval $command} errorMsg]} { aa_false $errorMsg 1 return } aa_true "True statement: Text contains misspelled words" {$error_num > 0} aa_log "Number of misspelled words found in text: $error_num" aa_false "False statement: Text contains no misspelled word(s)" {$error_num == 0} aa_log "Returned string: $formtext_to_display" aa_true "The returned string contains a hidden var named 'var_to_spellcheck.merge_text'" [regexp "var_to_spellcheck.merge_text" $formtext_to_display] aa_true "The returned string contains $error_num hidden var(s) named 'var_to_spellcheck.error_N', where N is a number between 0 and [expr {$error_num - 1}]." [regexp "var_to_spellcheck.error_\[0-9\]*" $formtext_to_display] aa_equals "The number of misspelled words matches the number of error placeholders in the merge_text" [regexp -all "var_to_spellcheck.error_\[0-9\]*" $formtext_to_display] [regexp -all "\#\[0-9\]*\#" $formtext_to_display] aa_true "just_the_errwords contains the errwords we expected: '[join $errwords ", "]'" [util_sets_equal_p $just_the_errwords $errwords] ##### # # HTML without spelling mistakes # ##### set command $base_command lappend command -text "This <i>sentence</i> does <b>not</b> contain <u>any</u> misspelled words. What we have here is <a href=\"\#\">HTML</a>." lappend command -html aa_log "--- Correctly spelled HTML fragment --- $command" if {[catch {eval $command} errorMsg]} { aa_false $errorMsg 1 aa_log "Maybe you have to install aspell and aspell-dict-en?" return } aa_true "True statement: HTML fragment contains no misspelled words" {$error_num == 0} aa_log "Number of miss-spelled words found in HTML fragment: $error_num" aa_false "False statement: HTML fragment contains misspelled word(s)" {$error_num > 0} aa_equals "Number of misspelled words found in HTML fragment" $error_num 0 aa_log "Returned string: $formtext_to_display" aa_true "The returned string contains a hidden var named 'var_to_spellcheck.merge_text'" [regexp "var_to_spellcheck.merge_text" $formtext_to_display] aa_true "The returned string contains no hidden var(s) named 'var_to_spellcheck.error_N', where N is the error number." ![regexp "var_to_spellcheck.error_\[0-9\]*" $formtext_to_display] aa_true "just_the_errwords is empty" {$just_the_errwords eq ""} ##### # # HTML with spelling mistakes # ##### set command $base_command lappend command -text "This <i>sentence</i> <b>does</b> contain misspelled worrds. What we have here is <a href=\"\#\">HTML</a>." lappend command -html set errwords {misspelled worrds} aa_log "--- Incorrectly spelled HTML fragment --- $command" if {[catch {eval $command} errorMsg]} { aa_false $errorMsg 1 return } aa_true "True statement: HTML fragment contains misspelled words" {$error_num > 0} aa_log "Number of miss-spelled words found in HTML fragment: $error_num" aa_false "False statement: HTML fragment contains no misspelled word(s)" {$error_num == 0} aa_log "Returned string: $formtext_to_display" aa_true "The returned string contains a hidden var named 'var_to_spellcheck.merge_text'" [regexp "var_to_spellcheck.merge_text" $formtext_to_display] aa_true "The returned string contains hidden var(s) named 'var_to_spellcheck.error_N', where N is the error number." [regexp "var_to_spellcheck.error_\[0-9\]*" $formtext_to_display] aa_true "just_the_errwords contains the errwords we expected: '[join $errwords ", "]'" [util_sets_equal_p $just_the_errwords $errwords] }} { 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" "spellcheck__get_element_formtext (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle