summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat
-rw-r--r--tests/encoding.test4
-rw-r--r--tests/env.test4
-rw-r--r--tests/event.test8
-rw-r--r--tests/exec.test4
-rw-r--r--tests/execute.test4
-rw-r--r--tests/fCmd.test20
-rw-r--r--tests/fileName.test6
-rw-r--r--tests/io.test4
-rw-r--r--tests/load.test6
-rw-r--r--tests/macFCmd.test10
-rw-r--r--tests/msgcat.test6
-rw-r--r--tests/osa.test4
-rw-r--r--tests/pkgMkIndex.test4
-rw-r--r--tests/reg.test4
-rw-r--r--tests/registry.test4
-rw-r--r--tests/result.test2
-rw-r--r--tests/socket.test6
-rw-r--r--tests/string.test4
-rw-r--r--tests/thread.test6
-rw-r--r--tests/unixFCmd.test6
-rw-r--r--tests/unixInit.test8
-rw-r--r--tests/unixNotfy.test4
-rw-r--r--tests/winFCmd.test14
-rw-r--r--tests/winNotify.test4
-rw-r--r--tests/winPipe.test10
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
generated by cgit v0.12 at 2024-11-05 08:18:25 (GMT)