diff options
Diffstat (limited to 'tests/text.test')
| -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 |