only create test.dat file on windows, it is never used on unix and creation

may fail due to insufficient permissions

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