summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2011-10-13 08:01:25 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2011-10-13 08:01:25 (GMT)
commitc4513649f89f91cfbfcd3ec25a7f0daebe2a341b (patch)
tree4ef5ba71e7684cc38c935d9cdeacba26121172a0
parentd1f655a66195a041d20c33012ab0bfc89f13a1a4 (diff)
parent4ca24992adde00da972e38b64d055d9b6a83e7ea (diff)
downloadtcl-c4513649f89f91cfbfcd3ec25a7f0daebe2a341b.zip
tcl-c4513649f89f91cfbfcd3ec25a7f0daebe2a341b.tar.gz
tcl-c4513649f89f91cfbfcd3ec25a7f0daebe2a341b.tar.bz2
revert test-case from [Bug 2935503]
-rw-r--r--ChangeLog2
-rw-r--r--tests/io.test6
2 files changed, 4 insertions, 4 deletions
diff --git a/ChangeLog b/ChangeLog
index 97faf2d..a8da0b1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,7 @@
2011-10-11 Jan Nijtmans <nijtmans@users.sf.net>
* win/tclWinFile.c: [Bug 2935503] Incorrect mode field
- * tests/io.test: returned by file stat command
+ returned by file stat command
2011-10-07 Jan Nijtmans <nijtmans@users.sf.net>
diff --git a/tests/io.test b/tests/io.test
index 28e847e..beb5a30 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -5203,9 +5203,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} {unix} {
file delete $path(test3)
- set f [open $path(test3) {WRONLY CREAT} 0o666]
+ set f [open $path(test3) {WRONLY CREAT} 0o600]
file stat $path(test3) stats
set x [format "0o%o" [expr $stats(mode)&0o777]]
puts $f "line 1"
@@ -5214,7 +5214,7 @@ test io-40.2 {POSIX open access modes: CREAT} {
lappend x [gets $f]
close $f
set x
-} {0o666 {line 1}}
+} {0o600 {line 1}}
test io-40.3 {POSIX open access modes: CREAT} {unix umask} {
# This test only works if your umask is 2, like ouster's.
file delete $path(test3)