Changed the tests to use the testConstraints array that the

test harness uses instead of the old name (testConfig).

1 files changed, 7 insertions, 7 deletions

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
 }