diff options
Diffstat (limited to 'tests/config.test')
| -rw-r--r-- | tests/config.test | 26 |
1 files changed, 12 insertions, 14 deletions
diff --git a/tests/config.test b/tests/config.test index 8fdbbd7..a12ecb5 100644 --- a/tests/config.test +++ b/tests/config.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: config.test,v 1.2 1999/04/16 01:51:36 stanton Exp $ +# RCS: @(#) $Id: config.test,v 1.3 2000/03/02 21:52:25 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -819,21 +819,19 @@ test config-12.16 {GetObjectForOption - null values} { [.a cget -cursor] [.a cget -window] } {{} {} {} {} {} {} {} {}} +test config-13.1 {proper cleanup of options with widget destroy} { + foreach type { + button canvas entry frame listbox menu menubutton message + scale scrollbar text radiobutton checkbutton + } { + destroy .w + $type .w -cursor crosshair + destroy .w + } +} {} + # cleanup eval destroy [winfo children .] killTables ::tcltest::cleanupTests return - - - - - - - - - - - - - |