summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordas <das>2008-10-23 12:18:47 (GMT)
committerdas <das>2008-10-23 12:18:47 (GMT)
commita5a02e5016e0e63058f91dbf21fd31419a9d00d1 (patch)
tree568e279fec9da27ba5636e1e604a17ab177c51b3 /tests
parent2c7191c9a51dde1c2cd6c52ad41426d4e60377f8 (diff)
downloadtcl-a5a02e5016e0e63058f91dbf21fd31419a9d00d1.zip
tcl-a5a02e5016e0e63058f91dbf21fd31419a9d00d1.tar.gz
tcl-a5a02e5016e0e63058f91dbf21fd31419a9d00d1.tar.bz2
only create test.dat file on windows, it is never used on unix and creation
may fail due to insufficient permissions
Diffstat (limited to 'tests')
-rw-r--r--tests/winFile.test22
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