diff options
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 |