summaryrefslogtreecommitdiffstats
path: root/tests/io.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2011-10-13 07:56:43 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2011-10-13 07:56:43 (GMT)
commit4ca24992adde00da972e38b64d055d9b6a83e7ea (patch)
tree7a74d718c928bb6e8d3a2c837bfc8a097cd8bb99 /tests/io.test
parent4a83f77ba9ac5d498e841d925a930391543879b9 (diff)
downloadtcl-4ca24992adde00da972e38b64d055d9b6a83e7ea.zip
tcl-4ca24992adde00da972e38b64d055d9b6a83e7ea.tar.gz
tcl-4ca24992adde00da972e38b64d055d9b6a83e7ea.tar.bz2
revert test-case change from [Bug 2935503]
Diffstat (limited to 'tests/io.test')
-rw-r--r--tests/io.test6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/io.test b/tests/io.test
index 6029f18..ed2619a 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -5228,9 +5228,9 @@ test io-40.1 {POSIX open access modes: RDWR} {
close $f
set x
} {zzy abzzy}
-test io-40.2 {POSIX open access modes: CREAT} {
+test io-40.2 {POSIX open access modes: CREAT} {unixOnly} {
file delete $path(test3)
- set f [open $path(test3) {WRONLY CREAT} 0666]
+ set f [open $path(test3) {WRONLY CREAT} 0600]
file stat $path(test3) stats
set x [format "0%o" [expr $stats(mode)&0777]]
puts $f "line 1"
@@ -5239,7 +5239,7 @@ test io-40.2 {POSIX open access modes: CREAT} {
lappend x [gets $f]
close $f
set x
-} {0666 {line 1}}
+} {0600 {line 1}}
# some tests can only be run is umask is 2
# if "umask" cannot be run, the tests will be skipped.