diff options
Diffstat (limited to 'tests/msgbox.test')
| -rw-r--r-- | tests/msgbox.test | 32 |
1 files changed, 18 insertions, 14 deletions
diff --git a/tests/msgbox.test b/tests/msgbox.test index e9a16d4..78adb81 100644 --- a/tests/msgbox.test +++ b/tests/msgbox.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: msgbox.test,v 1.3 1999/04/16 01:51:39 stanton Exp $ +# RCS: @(#) $Id: msgbox.test,v 1.4 2000/04/18 02:18:34 ericm Exp $ # if {[lsearch [namespace children] ::tcltest] == -1} { @@ -165,19 +165,23 @@ foreach spec $specs { } } +# These tests will hang your test suite if they fail. +test msgbox-3.1 {tk_messageBox handles withdrawn parent} {nonUnixUserInteraction} { + wm withdraw . + ChooseMsg . "ok" + tk_messageBox -title Hi -message "Please press ok" \ + -type ok -default ok +} "ok" +wm deiconify . + +test msgbox-3.2 {tk_messageBox handles iconified parent} {nonUnixUserInteraction} { + wm iconify . + ChooseMsg . "ok" + tk_messageBox -title Hi -message "Please press ok" \ + -type ok -default ok +} "ok" +wm deiconify . + # cleanup ::tcltest::cleanupTests return - - - - - - - - - - - - - |