diff options
| author | hobbs <hobbs> | 2000-03-02 21:52:24 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2000-03-02 21:52:24 (GMT) |
| commit | 9521a71f90589b90b5506505a8c81b7cb198b96d (patch) | |
| tree | d64e49d733925389d130957ffe45696b65aa128d /tests/config.test | |
| parent | 99ad7ea580fa5e8a8b31feee30c6cbd6615b9ba7 (diff) | |
| download | tk-9521a71f90589b90b5506505a8c81b7cb198b96d.zip tk-9521a71f90589b90b5506505a8c81b7cb198b96d.tar.gz tk-9521a71f90589b90b5506505a8c81b7cb198b96d.tar.bz2 | |
* tests/config.test: extra test to check object cleanup when
destroying the widget
* tests/entry.test: added test suite for entry validation
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 - - - - - - - - - - - - - |