From 1218d92ac4b2234ece3e39faf0b7cc44ae887df8 Mon Sep 17 00:00:00 2001 From: davygrvy Date: Mon, 8 Nov 2004 19:19:27 +0000 Subject: * tests/winFile.test: Attempted and untested fix for 1062491 --- tests/winFile.test | 14 +++++++------- 1 file 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) -- cgit v0.12