summaryrefslogtreecommitdiffstats
path: root/tests/id.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/id.test')
-rw-r--r--tests/id.test12
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