diff options
| author | hobbs <hobbs> | 2001-09-21 20:38:18 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-09-21 20:38:18 (GMT) |
| commit | a1c4d6114615a7794672fd0f929ad729f9163abe (patch) | |
| tree | f44d701ac67421893fe5fa058674ea6c0e75c9ba /tests/id.test | |
| parent | a2f22702a6337c86083ff311cfc81a90c1bf6bb0 (diff) | |
| download | tk-a1c4d6114615a7794672fd0f929ad729f9163abe.zip tk-a1c4d6114615a7794672fd0f929ad729f9163abe.tar.gz tk-a1c4d6114615a7794672fd0f929ad729f9163abe.tar.bz2 | |
improved use of test constraints
Diffstat (limited to 'tests/id.test')
| -rw-r--r-- | tests/id.test | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/tests/id.test b/tests/id.test index 8c12a50..bfaa741 100644 --- a/tests/id.test +++ b/tests/id.test @@ -6,18 +6,14 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: id.test,v 1.4 1999/04/16 01:51:38 stanton Exp $ +# RCS: @(#) $Id: id.test,v 1.5 2001/09/21 20:38:18 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] } -if {[string compare testwrapper [info commands testwrapper]] != 0} { - puts "This application hasn't been compiled with the testwrapper command," - puts "therefore I am skipping all of these tests." - ::tcltest::cleanupTests - return -} +set ::tcltest::testConfig(testwrapper) \ + [llength [info commands testwrapper]] foreach i [winfo children .] { destroy $i @@ -25,7 +21,7 @@ foreach i [winfo children .] { wm geometry . {} raise . -test id-1.1 {WindowIdCleanup, delaying window release} {unixOnly} { +test id-1.1 {WindowIdCleanup, delaying window release} {unixOnly testwrapper} { bind all <Destroy> {lappend x %W} catch {unset map} frame .f |