From 457878605de5c2864ae3d127ace169560ca49d90 Mon Sep 17 00:00:00 2001
From: jenn <jenn@noemail.net>
Date: Thu, 1 Jul 1999 17:36:16 +0000
Subject: Changed the tests to use the testConstraints array that the test
 harness uses instead of the old name (testConfig).

FossilOrigin-Name: 6b946e4c3413bd78b62341d25d3a25f9f9a1d0b0
---
 tests/encoding.test   |  4 ++--
 tests/env.test        |  4 ++--
 tests/event.test      |  8 ++++----
 tests/exec.test       |  4 ++--
 tests/execute.test    |  4 ++--
 tests/fCmd.test       | 20 ++++++++++----------
 tests/fileName.test   |  6 +++---
 tests/io.test         |  4 ++--
 tests/load.test       |  6 +++---
 tests/macFCmd.test    | 10 +++++-----
 tests/msgcat.test     |  6 +++---
 tests/osa.test        |  4 ++--
 tests/pkgMkIndex.test |  4 ++--
 tests/reg.test        |  4 ++--
 tests/registry.test   |  4 ++--
 tests/result.test     |  2 +-
 tests/socket.test     |  6 +++---
 tests/string.test     |  4 ++--
 tests/thread.test     |  6 +++---
 tests/unixFCmd.test   |  6 +++---
 tests/unixInit.test   |  8 ++++----
 tests/unixNotfy.test  |  4 ++--
 tests/winFCmd.test    | 14 +++++++-------
 tests/winNotify.test  |  4 ++--
 tests/winPipe.test    | 10 +++++-----
 25 files changed, 78 insertions(+), 78 deletions(-)

diff --git a/tests/encoding.test b/tests/encoding.test
index 34cd506..0425f5b 100644
--- a/tests/encoding.test
+++ b/tests/encoding.test
@@ -8,7 +8,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: encoding.test,v 1.3 1999/06/26 03:54:12 jenn Exp $
+# RCS: @(#) $Id: encoding.test,v 1.4 1999/07/01 17:36:17 jenn Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -26,7 +26,7 @@ proc fromutf {args} {
 
 # Some tests require the testencoding command
 
-set ::tcltest::testConfig(testencoding) \
+set ::tcltest::testConstraints(testencoding) \
 	[expr {[info commands testencoding] != {}}]
 
 
diff --git a/tests/env.test b/tests/env.test
index 164e634..23e04a6 100644
--- a/tests/env.test
+++ b/tests/env.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: env.test,v 1.6 1999/06/26 03:54:12 jenn Exp $
+# RCS: @(#) $Id: env.test,v 1.7 1999/07/01 17:36:17 jenn Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -58,7 +58,7 @@ test env-1.3 {reflection of env by "array names"} {
 
 # Some tests require the "exec" command.
 # Skip them if exec is not defined.
-set ::tcltest::testConfig(execCommandExists) [expr {[info commands exec] != ""}]
+set ::tcltest::testConstraints(execCommandExists) [expr {[info commands exec] != ""}]
 
 set f [open printenv w]
 puts $f {
diff --git a/tests/event.test b/tests/event.test
index e633507..073d96d 100644
--- a/tests/event.test
+++ b/tests/event.test
@@ -9,18 +9,18 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: event.test,v 1.7 1999/06/26 03:54:12 jenn Exp $
+# RCS: @(#) $Id: event.test,v 1.8 1999/07/01 17:36:17 jenn Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
     namespace import ::tcltest::*
 }
 
-set ::tcltest::testConfig(testfilehandler) \
+set ::tcltest::testConstraints(testfilehandler) \
 	[expr {[info commands testfilehandler] != {}}]
-set ::tcltest::testConfig(testexithandler) \
+set ::tcltest::testConstraints(testexithandler) \
 	[expr {[info commands testexithandler] != {}}]
-set ::tcltest::testConfig(testfilewait) \
+set ::tcltest::testConstraints(testfilewait) \
 	[expr {[info commands testfilewait] != {}}]
 
 
diff --git a/tests/exec.test b/tests/exec.test
index b55176f..653066d 100644
--- a/tests/exec.test
+++ b/tests/exec.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: exec.test,v 1.4 1999/06/26 03:54:12 jenn Exp $
+# RCS: @(#) $Id: exec.test,v 1.5 1999/07/01 17:36:17 jenn Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -20,7 +20,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
 
 # All tests require the "exec" command.
 # Skip them if exec is not defined.
-set ::tcltest::testConfig(execCommandExists) [expr {[info commands exec] != ""}]
+set ::tcltest::testConstraints(execCommandExists) [expr {[info commands exec] != ""}]
 
 set f [open echo w]
 puts $f {
diff --git a/tests/execute.test b/tests/execute.test
index 5525bb7..d8eadea 100644
--- a/tests/execute.test
+++ b/tests/execute.test
@@ -14,7 +14,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: execute.test,v 1.6 1999/06/26 21:41:53 rjohnson Exp $
+# RCS: @(#) $Id: execute.test,v 1.7 1999/07/01 17:36:18 jenn Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -27,7 +27,7 @@ catch {unset x}
 catch {unset y}
 catch {unset msg}
 
-set ::tcltest::testConfig(testobj) \
+set ::tcltest::testConstraints(testobj) \
 	[expr {[info commands testobj] != {} \
 	&& [info commands testdoubleobj] != {} \
 	&& [info commands teststringobj] != {} \
diff --git a/tests/fCmd.test b/tests/fCmd.test
index dfd64a6..c1af5c9 100644
--- a/tests/fCmd.test
+++ b/tests/fCmd.test
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: fCmd.test,v 1.5 1999/06/26 03:54:13 jenn Exp $
+# RCS: @(#) $Id: fCmd.test,v 1.6 1999/07/01 17:36:18 jenn Exp $
 #
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -103,27 +103,27 @@ proc contents {file} {
     set r
 }
 
-set ::tcltest::testConfig(fileSharing) 0
-set ::tcltest::testConfig(notFileSharing) 1
+set ::tcltest::testConstraints(fileSharing) 0
+set ::tcltest::testConstraints(notFileSharing) 1
 
 if {$tcl_platform(platform) == "macintosh"} {
     catch {file delete -force foo.dir}
     file mkdir foo.dir
     if {[catch {file attributes foo.dir -readonly 1}] == 0} {
-    	set ::tcltest::testConfig(fileSharing) 1
-    	set ::tcltest::testConfig(notFileSharing) 0
+    	set ::tcltest::testConstraints(fileSharing) 1
+    	set ::tcltest::testConstraints(notFileSharing) 0
     }
     file delete -force foo.dir
 }
 
-set ::tcltest::testConfig(xdev) 0
+set ::tcltest::testConstraints(xdev) 0
 
 if {$tcl_platform(platform) == "unix"} {
     if {[catch {set m1 [exec df .]; set m2 [exec df /tmp]}] == 0} {
 	set m1 [string range $m1 0 [expr [string first " " $m1]-1]]
 	set m2 [string range $m2 0 [expr [string first " " $m2]-1]]
 	if {$m1 != "" && $m2 != "" && $m1 != $m2 && [file exists $m1] && [file exists $m2]} {
-	    set ::tcltest::testConfig(xdev) 1
+	    set ::tcltest::testConstraints(xdev) 1
 	}
     }
 }
@@ -2124,14 +2124,14 @@ test fCmd-27.4 {TclFileAttrsCmd - getting one option} {
 # Find a group that exists on this Unix system, or else skip tests that
 # require Unix groups.
 if {$tcl_platform(platform) == "unix"} {
-    set ::tcltest::testConfig(foundGroup) 0
+    set ::tcltest::testConstraints(foundGroup) 0
     catch {
 	set groupList [exec groups]
 	set group [lindex $groupList 0]
-	set ::tcltest::testConfig(foundGroup) 1
+	set ::tcltest::testConstraints(foundGroup) 1
     }
 } else {
-    set ::tcltest::testConfig(foundGroup) 1
+    set ::tcltest::testConstraints(foundGroup) 1
 }
 
 test fCmd-27.5 {TclFileAttrsCmd - setting one option} {foundGroup} {
diff --git a/tests/fileName.test b/tests/fileName.test
index b16ad46..d93c93f 100644
--- a/tests/fileName.test
+++ b/tests/fileName.test
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: fileName.test,v 1.4 1999/06/26 03:54:13 jenn Exp $
+# RCS: @(#) $Id: fileName.test,v 1.5 1999/07/01 17:36:18 jenn Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -1383,9 +1383,9 @@ test filename-16.11 {windows specific globbing} {pcOnly} {
 # some tests require a shared C drive
 
 if {[catch {cd //[info hostname]/c}]} {
-    set ::tcltest::testConfig(sharedCdrive) 0
+    set ::tcltest::testConstraints(sharedCdrive) 0
 } else {
-    set ::tcltest::testConfig(sharedCdrive) 1
+    set ::tcltest::testConstraints(sharedCdrive) 1
 }
 
 test filename-16.12 {windows specific globbing} {pcOnly sharedCdrive} {
diff --git a/tests/io.test b/tests/io.test
index 7b89bda..b2716de 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -12,7 +12,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: io.test,v 1.9 1999/06/26 03:54:15 jenn Exp $
+# RCS: @(#) $Id: io.test,v 1.10 1999/07/01 17:36:18 jenn Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -5100,7 +5100,7 @@ test io-40.2 {POSIX open access modes: CREAT} {unixOnly} {
 
 # some tests can only be run is umask is 2
 # if "umask" cannot be run, the tests will be skipped.
-catch {set ::tcltest::testConfig(umask2) [expr {[exec umask] == 2}]}
+catch {set ::tcltest::testConstraints(umask2) [expr {[exec umask] == 2}]}
 
 test io-40.3 {POSIX open access modes: CREAT} {unixOnly umask2} {
     # This test only works if your umask is 2, like ouster's.
diff --git a/tests/load.test b/tests/load.test
index 72082c2..8bf8e0d 100644
--- a/tests/load.test
+++ b/tests/load.test
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: load.test,v 1.5 1999/06/26 03:54:16 jenn Exp $
+# RCS: @(#) $Id: load.test,v 1.6 1999/07/01 17:36:18 jenn Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -31,12 +31,12 @@ set ext [info sharedlibextension]
 set testDir [file join [file dirname [info nameofexecutable]] dltest]
 set x [file join $testDir pkga$ext]
 set dll "[file tail $x]Required"
-set ::tcltest::testConfig($dll) [file readable $x]
+set ::tcltest::testConstraints($dll) [file readable $x]
 
 # Tests also require that this DLL has not already been loaded.
 set loaded "[file tail $x]Loaded"
 set alreadyLoaded [info loaded]
-set ::tcltest::testConfig($loaded) \
+set ::tcltest::testConstraints($loaded) \
 	[expr {![string match *pkga* $alreadyLoaded]}]
 
 set alreadyTotalLoaded [info loaded]
diff --git a/tests/macFCmd.test b/tests/macFCmd.test
index 2dd1f68..27604cc 100644
--- a/tests/macFCmd.test
+++ b/tests/macFCmd.test
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: macFCmd.test,v 1.4 1999/06/26 03:54:17 jenn Exp $
+# RCS: @(#) $Id: macFCmd.test,v 1.5 1999/07/01 17:36:18 jenn Exp $
 #
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -21,11 +21,11 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
 catch {file delete -force foo.dir}
 file mkdir foo.dir
 if {[catch {file attributes foo.dir -readonly 1}]} {
-    set ::tcltest::testConfig(fileSharing) 0
-    set ::tcltest::testConfig(notFileSharing) 1
+    set ::tcltest::testConstraints(fileSharing) 0
+    set ::tcltest::testConstraints(notFileSharing) 1
 } else {
-    set ::tcltest::testConfig(fileSharing) 1
-    set ::tcltest::testConfig(notFileSharing) 0
+    set ::tcltest::testConstraints(fileSharing) 1
+    set ::tcltest::testConstraints(notFileSharing) 0
 }
 file delete -force foo.dir
 
diff --git a/tests/msgcat.test b/tests/msgcat.test
index ae0b295..3d8b087 100644
--- a/tests/msgcat.test
+++ b/tests/msgcat.test
@@ -12,7 +12,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: msgcat.test,v 1.5 1999/06/26 03:54:17 jenn Exp $
+# RCS: @(#) $Id: msgcat.test,v 1.6 1999/07/01 17:36:18 jenn Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -38,9 +38,9 @@ set oldlocale [::msgcat::mclocale]
 # some tests fail in tne environment variable LANG exists and is not C
 
 if {[info exists env(LANG)] && ($env(LANG) != "C")} {
-    set ::tcltest::testConfig(LANGisC) 0
+    set ::tcltest::testConstraints(LANGisC) 0
 } else {
-    set ::tcltest::testConfig(LANGisC) 1
+    set ::tcltest::testConstraints(LANGisC) 1
 }
 
 #
diff --git a/tests/osa.test b/tests/osa.test
index 42322bb..56328ea 100644
--- a/tests/osa.test
+++ b/tests/osa.test
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: osa.test,v 1.4 1999/06/26 03:54:18 jenn Exp $
+# RCS: @(#) $Id: osa.test,v 1.5 1999/07/01 17:36:19 jenn Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -18,7 +18,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
 }
 
 # Only run the test if we can load the AppleScript command
-set ::tcltest::testConfig(appleScript) [expr {[info commands AppleScript] != ""}]
+set ::tcltest::testConstraints(appleScript) [expr {[info commands AppleScript] != ""}]
 
 test osa-1.1 {Tcl_OSAComponentCmd} {macOnly appleScript} {
     list [catch AppleScript msg] $msg
diff --git a/tests/pkgMkIndex.test b/tests/pkgMkIndex.test
index 6d1b59f..52eb048 100644
--- a/tests/pkgMkIndex.test
+++ b/tests/pkgMkIndex.test
@@ -8,7 +8,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: pkgMkIndex.test,v 1.10 1999/06/26 20:55:09 rjohnson Exp $
+# RCS: @(#) $Id: pkgMkIndex.test,v 1.11 1999/07/01 17:36:19 jenn Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -323,7 +323,7 @@ test pkgMkIndex-9.1 {circular packages} {
 set x [file join [file dirname [info nameofexecutable]] dltest \
 	pkga[info sharedlibextension]]
 set dll "[file tail $x]Required"
-set ::tcltest::testConfig($dll) [file exists $x]
+set ::tcltest::testConstraints($dll) [file exists $x]
 
 test pkgMkIndex-10.1 {package in DLL and script} $dll {
     file copy -force $x $fullPkgPath
diff --git a/tests/reg.test b/tests/reg.test
index 9627d72..4929279 100644
--- a/tests/reg.test
+++ b/tests/reg.test
@@ -6,7 +6,7 @@
 #
 # Copyright (c) 1998, 1999 Henry Spencer.  All rights reserved.
 #
-# RCS: @(#) $Id: reg.test,v 1.7 1999/06/26 20:55:10 rjohnson Exp $
+# RCS: @(#) $Id: reg.test,v 1.8 1999/07/01 17:36:19 jenn Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -16,7 +16,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
 # All tests require the testregexp command, return if this
 # command doesn't exist
 
-set ::tcltest::testConfig(testregexp) \
+set ::tcltest::testConstraints(testregexp) \
 	[expr {[info commands testregexp] != {}}]
 
 # This file uses some custom procedures, defined below, for regexp regression
diff --git a/tests/registry.test b/tests/registry.test
index 9b08f2f..70c3846 100644
--- a/tests/registry.test
+++ b/tests/registry.test
@@ -10,7 +10,7 @@
 # Copyright (c) 1997 by Sun Microsystems, Inc.  All rights reserved.
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 #
-# RCS: @(#) $Id: registry.test,v 1.7 1999/06/26 20:55:10 rjohnson Exp $
+# RCS: @(#) $Id: registry.test,v 1.8 1999/07/01 17:36:19 jenn Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -32,7 +32,7 @@ if {$tcl_platform(platform) == "windows"} {
 set old [testlocale all]
 if {![string compare [testlocale all ""] "English_United States.1252"]} {
 	# error messages from registry package are already localized.
-    set ::tcltest::testConfig(english) 1
+    set ::tcltest::testConstraints(english) 1
 }
 testlocale all $old
 unset old
diff --git a/tests/result.test b/tests/result.test
index dbcd95a..eb3de33 100644
--- a/tests/result.test
+++ b/tests/result.test
@@ -19,7 +19,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
 
 # Some tests require the testsaveresult command
 
-set ::tcltest::testConfig(testsaveresult) \
+set ::tcltest::testConstraints(testsaveresult) \
 	[expr {[info commands testsaveresult] != {}}]
 
 test result-1.1 {Tcl_SaveInterpResult} {testsaveresult} {
diff --git a/tests/socket.test b/tests/socket.test
index 93b96ee..6856026 100644
--- a/tests/socket.test
+++ b/tests/socket.test
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: socket.test,v 1.11 1999/06/26 20:55:13 rjohnson Exp $
+# RCS: @(#) $Id: socket.test,v 1.12 1999/07/01 17:36:19 jenn Exp $
 
 # Running socket tests with a remote server:
 # ------------------------------------------
@@ -69,7 +69,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
 
 # Some tests require the testthread command
 
-set ::tcltest::testConfig(testthread) \
+set ::tcltest::testConstraints(testthread) \
 	[expr {[info commands testthread] != {}}]
 
 #
@@ -149,7 +149,7 @@ if {$doTestsWithRemoteServer} {
 }
 
 # Some tests are run only if we are doing testing against a remote server.
-set ::tcltest::testConfig(doTestsWithRemoteServer) $doTestsWithRemoteServer
+set ::tcltest::testConstraints(doTestsWithRemoteServer) $doTestsWithRemoteServer
 if {$doTestsWithRemoteServer == 0} {
     if {[string first s $::tcltest::verbose] != -1} {
     	puts "Skipping tests with remote server. See tests/socket.test for"
diff --git a/tests/string.test b/tests/string.test
index 64df37b..4cee4d3 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: string.test,v 1.17 1999/06/26 22:29:06 rjohnson Exp $
+# RCS: @(#) $Id: string.test,v 1.18 1999/07/01 17:36:19 jenn Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -20,7 +20,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
 
 # Some tests require the testobj command
 
-set ::tcltest::testConfig(testobj) \
+set ::tcltest::testConstraints(testobj) \
 	[expr {[info commands testobj] != {}}]
 
 test string-1.1 {error conditions} {
diff --git a/tests/thread.test b/tests/thread.test
index 1ab7e83..7e7033a 100644
--- a/tests/thread.test
+++ b/tests/thread.test
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: thread.test,v 1.6 1999/06/26 20:55:14 rjohnson Exp $
+# RCS: @(#) $Id: thread.test,v 1.7 1999/07/01 17:36:19 jenn Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -19,10 +19,10 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
 
 # Some tests require the testthread command
 
-set ::tcltest::testConfig(testthread) \
+set ::tcltest::testConstraints(testthread) \
 	[expr {[info commands testthread] != {}}]
 
-if {$::tcltest::testConfig(testthread)} {
+if {$::tcltest::testConstraints(testthread)} {
 
     testthread errorproc ThreadError
 
diff --git a/tests/unixFCmd.test b/tests/unixFCmd.test
index 1c37f04..b06977c 100644
--- a/tests/unixFCmd.test
+++ b/tests/unixFCmd.test
@@ -9,7 +9,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: unixFCmd.test,v 1.8 1999/06/26 20:55:15 rjohnson Exp $
+# RCS: @(#) $Id: unixFCmd.test,v 1.9 1999/07/01 17:36:20 jenn Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -214,11 +214,11 @@ test unixFCmd-14.2 {GetPermissionsAttribute} {unixOnly notRoot} {
 
 # Find a group that exists on this system, or else skip tests that require
 # groups
-set ::tcltest::testConfig(foundGroup) 0
+set ::tcltest::testConstraints(foundGroup) 0
 catch {
     set groupList [exec groups]
     set group [lindex $groupList 0]
-    set ::tcltest::testConfig(foundGroup) 1
+    set ::tcltest::testConstraints(foundGroup) 1
 }
 
 #groups hard to test
diff --git a/tests/unixInit.test b/tests/unixInit.test
index 2fc1939..3c20204 100644
--- a/tests/unixInit.test
+++ b/tests/unixInit.test
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: unixInit.test,v 1.7 1999/06/26 20:55:16 rjohnson Exp $
+# RCS: @(#) $Id: unixInit.test,v 1.8 1999/07/01 17:36:20 jenn Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -28,9 +28,9 @@ if {[catch {
     exec kill -PIPE [pid $f]
     close $f
 }]} {
-    set ::tcltest::testConfig(installedTcl) 0
+    set ::tcltest::testConstraints(installedTcl) 0
 } else {
-    set ::tcltest::testConfig(installedTcl) 1
+    set ::tcltest::testConstraints(installedTcl) 1
 }
 test unixInit-1.1 {TclpInitPlatform: ignore SIGPIPE} {unixOnly installedTcl} {
     set x {}
@@ -66,7 +66,7 @@ proc getlibpath "{program [list $::tcltest::tcltest]}" {
 
 # Some tests require the testgetdefenc command
 
-set ::tcltest::testConfig(testgetdefenc) \
+set ::tcltest::testConstraints(testgetdefenc) \
 	[expr {[info commands testgetdefenc] != {}}]
 
 test unixInit-2.0 {TclpInitLibraryPath: setting tclDefaultEncodingDir} \
diff --git a/tests/unixNotfy.test b/tests/unixNotfy.test
index 34f269c..ac0f169 100644
--- a/tests/unixNotfy.test
+++ b/tests/unixNotfy.test
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: unixNotfy.test,v 1.6 1999/06/26 20:55:16 rjohnson Exp $
+# RCS: @(#) $Id: unixNotfy.test,v 1.7 1999/07/01 17:36:20 jenn Exp $
 
 # The tests should not be run if you have a notifier which is unable to
 # detect infinite vwaits, as the tests below will hang. The presence of
@@ -21,7 +21,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
     namespace import ::tcltest::*
 }
 
-set ::tcltest::testConfig(testthread) \
+set ::tcltest::testConstraints(testthread) \
 	[expr {[info commands testthread] != {}}]
 
 # The next two tests will hang if threads are enabled because the notifier
diff --git a/tests/winFCmd.test b/tests/winFCmd.test
index f672071..249c3bd 100644
--- a/tests/winFCmd.test
+++ b/tests/winFCmd.test
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: winFCmd.test,v 1.6 1999/06/26 20:55:18 rjohnson Exp $
+# RCS: @(#) $Id: winFCmd.test,v 1.7 1999/07/01 17:36:20 jenn Exp $
 #
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -44,8 +44,8 @@ proc cleanup {args} {
     }
 }
 
-set ::tcltest::testConfig(cdrom) 0
-set ::tcltest::testConfig(exdev) 0
+set ::tcltest::testConstraints(cdrom) 0
+set ::tcltest::testConstraints(exdev) 0
 
 # find a CD-ROM so we can test read-only filesystems.
 
@@ -85,7 +85,7 @@ proc findfile {dir} {
 }
 
 if {$cdrom != ""} {
-    set ::tcltest::testConfig(cdrom) 1
+    set ::tcltest::testConstraints(cdrom) 1
     set cdfile [findfile $cdrom]
 }
 
@@ -93,17 +93,17 @@ if {[file exists c:/] && [file exists d:/]} {
     catch {file delete d:/tf1}
     if {[catch {close [open d:/tf1 w]}] == 0} {
 	file delete d:/tf1
-	set ::tcltest::testConfig(exdev) 1
+	set ::tcltest::testConstraints(exdev) 1
     }
 }
 
 file delete -force -- td1
 set foo [catch {open td1 w} testfile]
 if {$foo} {
-    set ::tcltest::testConfig(longFileNames) 0
+    set ::tcltest::testConstraints(longFileNames) 0
 } else {
     close $testfile
-    set ::tcltest::testConfig(longFileNames) 1
+    set ::tcltest::testConstraints(longFileNames) 1
     file delete -force -- td1
 }
 
diff --git a/tests/winNotify.test b/tests/winNotify.test
index 4de1177..164108c 100644
--- a/tests/winNotify.test
+++ b/tests/winNotify.test
@@ -10,14 +10,14 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: winNotify.test,v 1.5 1999/06/26 20:55:20 rjohnson Exp $
+# RCS: @(#) $Id: winNotify.test,v 1.6 1999/07/01 17:36:20 jenn Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
     namespace import ::tcltest::*
 }
 
-set ::tcltest::testConfig(testeventloop) \
+set ::tcltest::testConstraints(testeventloop) \
 	[expr {[info commands testeventloop] != {}}]
 
 # There is no explicit test for InitNotifier or NotifierExitHandler
diff --git a/tests/winPipe.test b/tests/winPipe.test
index b2c3c8a..df557c8 100644
--- a/tests/winPipe.test
+++ b/tests/winPipe.test
@@ -12,7 +12,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: winPipe.test,v 1.10 1999/06/29 20:14:17 jenn Exp $
+# RCS: @(#) $Id: winPipe.test,v 1.11 1999/07/01 17:36:20 jenn Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -23,13 +23,13 @@ set bindir [file join [pwd] [file dirname [info nameofexecutable]]]
 set cat16 [file join  $bindir cat16.exe]
 set cat32 [file join $bindir cat32.exe]
 
-set ::tcltest::testConfig(cat32) [file exists $cat32]
-set ::tcltest::testConfig(cat16) [file exists $cat16]
+set ::tcltest::testConstraints(cat32) [file exists $cat32]
+set ::tcltest::testConstraints(cat16) [file exists $cat16]
 
 if {[catch {puts console1 ""}]} {
-    set ::tcltest::testConfig(AllocConsole) 1
+    set ::tcltest::testConstraints(AllocConsole) 1
 } else {
-    set ::tcltest::testConfig(.console) 1
+    set ::tcltest::testConstraints(.console) 1
 }
 
 set big bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\n
-- 
cgit v0.12