diff options
Diffstat (limited to 'tk/tests/panedwindow.test')
-rw-r--r-- | tk/tests/panedwindow.test | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/tk/tests/panedwindow.test b/tk/tests/panedwindow.test index 7f7a98fdb85..d2e399f8bb0 100644 --- a/tk/tests/panedwindow.test +++ b/tk/tests/panedwindow.test @@ -44,7 +44,7 @@ foreach test { } [list [lindex $test 2] [lindex $test 2]] incr i if {[lindex $test 3] != ""} { - test entry-1.$i {configuration options} { + test panedwindow-1.$i {configuration options} { list [catch {.p configure $name [lindex $test 3]} msg] $msg } [list 1 [lindex $test 4]] } @@ -70,7 +70,7 @@ foreach test { } [list [lindex $test 2] [lindex $test 2]] incr i if {[lindex $test 3] != ""} { - test entry-1.$i {configuration options} { + test panedwindow-1.$i {configuration options} { list [catch {.p paneconfigure .b $name [lindex $test 3]} msg] $msg } [list 1 [lindex $test 4]] } @@ -2385,8 +2385,17 @@ test panedwindow-27.26 {PanedWindowIdentifyCoords} { destroy .p .f .f2 .f3 set result } {1 sash} - - + +test panedwindow-28.1 {destroy the window cleanly on error [Bug #616589]} { + list [catch {panedwindow .p -bogusopt bogus} msg] $msg +} {1 {unknown option "-bogusopt"}} +test panedwindow-28.2 {destroy the window cleanly on rename [Bug #616589]} { + destroy .p + panedwindow .p + rename .p {} + winfo exists .p +} {0} + # cleanup ::tcltest::cleanupTests return |