summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordavygrvy <davygrvy@pobox.com>2004-11-08 19:19:27 (GMT)
committerdavygrvy <davygrvy@pobox.com>2004-11-08 19:19:27 (GMT)
commit1218d92ac4b2234ece3e39faf0b7cc44ae887df8 (patch)
treefc11edad71189e5e16e90f99cae5cdf6c9868cda
parentdc9196fb3bbed57c5471b44e39185a68ff303008 (diff)
downloadtcl-1218d92ac4b2234ece3e39faf0b7cc44ae887df8.zip
tcl-1218d92ac4b2234ece3e39faf0b7cc44ae887df8.tar.gz
tcl-1218d92ac4b2234ece3e39faf0b7cc44ae887df8.tar.bz2
* tests/winFile.test: Attempted and untested fix for 1062491
-rw-r--r--tests/winFile.test14
1 files changed, 7 insertions, 7 deletions
diff --git a/tests/winFile.test b/tests/winFile.test
index 65c531f..ffbb776 100644
--- a/tests/winFile.test
+++ b/tests/winFile.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: winFile.test,v 1.15 2004/11/07 20:56:29 davygrvy Exp $
+# RCS: @(#) $Id: winFile.test,v 1.16 2004/11/08 19:19:27 davygrvy Exp $
if {[catch {package require tcltest 2.0.2}]} {
puts stderr "Skipping tests in [info script]. tcltest 2.0.2 required."
@@ -26,12 +26,12 @@ if {[info commands ::testvolumetype] == ""} {
} else {
tcltest::testConstraint notNTFS 1
}
- if {[string equal $::tcl_platform(os) "Windows NT"] &&
+}
+if {[string equal $::tcl_platform(os) "Windows NT"] &&
$::tcl_platform(osVersion) >= 5.0} {
- tcltest::testConstraint win2K+ 1
- } else {
- tcltest::testConstraint win2K+ 0
- }
+ tcltest::testConstraint win2000 1
+} else {
+ tcltest::testConstraint win2000 0
}
test winFile-1.1 {TclpGetUserHome} {win} {
@@ -166,7 +166,7 @@ close [open $fname w]
test winFile-4.0 {
Enhanced NTFS user/group permissions: test no acccess
} -constraints {
- win nt notNTFS win2K+
+ win nt notNTFS win2000
} -setup {
set owner [getuser $fname]
set user $::env(USERDOMAIN)\\$::env(USERNAME)