diff options
author | dgp <dgp@users.sourceforge.net> | 2017-10-12 12:06:29 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2017-10-12 12:06:29 (GMT) |
commit | 2b0ca907279d39d6a0110b491c98d0cb8201aeff (patch) | |
tree | 151425a8f503236390fc35d706b585e39f5f0255 /tests | |
parent | 3f9a618768b16ceb02f6ca8132ac4159b6132d30 (diff) | |
download | tk-2b0ca907279d39d6a0110b491c98d0cb8201aeff.zip tk-2b0ca907279d39d6a0110b491c98d0cb8201aeff.tar.gz tk-2b0ca907279d39d6a0110b491c98d0cb8201aeff.tar.bz2 |
Clean up bg exception handlers.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/text.test | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/text.test b/tests/text.test index cb9e962..57d9e4e 100644 --- a/tests/text.test +++ b/tests/text.test @@ -7306,6 +7306,7 @@ test text-35.3 {widget dump -command destroys widget} -setup { test text-36.1 "bug #1777362: event handling with hyphenated windows" -setup { + set save [interp bgerror {}] interp bgerror {} returnerror-36.1 proc returnerror-36.1 {m opts} {set ::my_error $m} set ::my_error {} @@ -7319,8 +7320,11 @@ test text-36.1 "bug #1777362: event handling with hyphenated windows" -setup { } -cleanup { destroy .t-1 rename returnerror-36.1 "" + interp bgerror {} $save + unset -nocomplain save ::my_error w } -result {} test text-36.2 "bug #1777362: event handling with hyphenated windows" -setup { + set save [interp bgerror {}] interp bgerror {} returnerror-36.2 proc returnerror-36.2 {m opts} {set ::my_error $m} set ::my_error {} @@ -7334,8 +7338,11 @@ test text-36.2 "bug #1777362: event handling with hyphenated windows" -setup { } -cleanup { destroy $w rename returnerror-36.2 "" + interp bgerror {} $save + unset -nocomplain save ::my_error w } -result {} test text-36.3 "bug #1777362: event handling with hyphenated windows" -setup { + set save [interp bgerror {}] interp bgerror {} returnerror-36.3 proc returnerror-36.3 {m opts} {set ::my_error $m} set ::my_error {} @@ -7349,10 +7356,13 @@ test text-36.3 "bug #1777362: event handling with hyphenated windows" -setup { } -cleanup { destroy $w rename returnerror-36.3 "" + interp bgerror {} $save + unset -nocomplain save ::my_error w } -result {} test text-37.1 "bug #dd9667635d: text anchor not set" -setup { + set save [interp bgerror {}] interp bgerror {} returnerror-37.1 proc returnerror-37.1 {m opts} {set ::my_error $m} destroy .t @@ -7368,6 +7378,8 @@ test text-37.1 "bug #dd9667635d: text anchor not set" -setup { } -cleanup { destroy .t rename returnerror-37.1 "" + interp bgerror {} $save + unset -nocomplain save ::my_error } -result {} # cleanup |