diff options
| -rw-r--r-- | tests/text.test | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/tests/text.test b/tests/text.test index d9af434..cb9e962 100644 --- a/tests/text.test +++ b/tests/text.test @@ -7306,7 +7306,8 @@ test text-35.3 {widget dump -command destroys widget} -setup { test text-36.1 "bug #1777362: event handling with hyphenated windows" -setup { - proc bgerror {m} {set ::my_error $m} + interp bgerror {} returnerror-36.1 + proc returnerror-36.1 {m opts} {set ::my_error $m} set ::my_error {} pack [set w [text .t-1]] } -body { @@ -7317,10 +7318,11 @@ test text-36.1 "bug #1777362: event handling with hyphenated windows" -setup { set ::my_error } -cleanup { destroy .t-1 - rename bgerror "" + rename returnerror-36.1 "" } -result {} test text-36.2 "bug #1777362: event handling with hyphenated windows" -setup { - proc bgerror {m} {set ::my_error $m} + interp bgerror {} returnerror-36.2 + proc returnerror-36.2 {m opts} {set ::my_error $m} set ::my_error {} pack [set w [text .t+1]] } -body { @@ -7331,10 +7333,11 @@ test text-36.2 "bug #1777362: event handling with hyphenated windows" -setup { set ::my_error } -cleanup { destroy $w - rename bgerror "" + rename returnerror-36.2 "" } -result {} test text-36.3 "bug #1777362: event handling with hyphenated windows" -setup { - proc bgerror {m} {set ::my_error $m} + interp bgerror {} returnerror-36.3 + proc returnerror-36.3 {m opts} {set ::my_error $m} set ::my_error {} pack [set w [text .t*1]] } -body { @@ -7345,12 +7348,13 @@ test text-36.3 "bug #1777362: event handling with hyphenated windows" -setup { set ::my_error } -cleanup { destroy $w - rename bgerror "" + rename returnerror-36.3 "" } -result {} test text-37.1 "bug #dd9667635d: text anchor not set" -setup { - proc bgerror {m} {set ::my_error $m} + interp bgerror {} returnerror-37.1 + proc returnerror-37.1 {m opts} {set ::my_error $m} destroy .t pack [text .t] } -body { @@ -7363,7 +7367,7 @@ test text-37.1 "bug #dd9667635d: text anchor not set" -setup { set ::my_error } -cleanup { destroy .t - rename bgerror "" + rename returnerror-37.1 "" } -result {} # cleanup |