diff options
| -rw-r--r-- | tests/winFile.test | 22 |
1 files changed, 13 insertions, 9 deletions
diff --git a/tests/winFile.test b/tests/winFile.test index 1c33004..d502b30 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.21 2008/04/10 00:21:02 dkf Exp $ +# RCS: @(#) $Id: winFile.test,v 1.22 2008/10/23 12:18:47 das Exp $ if {[catch {package require tcltest 2.0.2}]} { puts stderr "Skipping tests in [info script]. tcltest 2.0.2 required." @@ -158,13 +158,15 @@ proc test_access {fname read writ} { return "Problem [join $problem \n]\nActual rights are: [cacls $fname]" } -# Create the test file -# NOTE: [tcltest::makeFile] not used. Presumably to force file -# creation in a particular filesystem? If not, try [makeFile] -# in a -setup script. -set fname test.dat -file delete $fname -close [open $fname w] +if {[testConstraint win]} { + # Create the test file + # NOTE: [tcltest::makeFile] not used. Presumably to force file + # creation in a particular filesystem? If not, try [makeFile] + # in a -setup script. + set fname test.dat + file delete $fname + close [open $fname w] +} test winFile-4.0 { Enhanced NTFS user/group permissions: test no acccess @@ -230,7 +232,9 @@ test winFile-4.4 { test_access $fname 1 1 } -result {} -file delete $fname +if {[testConstraint win]} { + file delete $fname +} # cleanup cleanupTests |