summaryrefslogtreecommitdiffstats
path: root/tests/io.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2011-10-11 13:39:08 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2011-10-11 13:39:08 (GMT)
commit8565cd4a3dd278a2ff60fd5e0573d746d209466e (patch)
tree4f4555d10a6a15438f52ad130f90c50ceca12fb4 /tests/io.test
parent2befc6793de3b9eba7c26d5def4cdfc023a8824b (diff)
parentd1f655a66195a041d20c33012ab0bfc89f13a1a4 (diff)
downloadtcl-8565cd4a3dd278a2ff60fd5e0573d746d209466e.zip
tcl-8565cd4a3dd278a2ff60fd5e0573d746d209466e.tar.gz
tcl-8565cd4a3dd278a2ff60fd5e0573d746d209466e.tar.bz2
[Bug 2935503] Incorrect mode field returned by file stat command
Diffstat (limited to 'tests/io.test')
-rw-r--r--tests/io.test8
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/io.test b/tests/io.test
index 8a7cc51..839a309 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -5203,18 +5203,18 @@ test io-40.1 {POSIX open access modes: RDWR} {
close $f
set x
} {zzy abzzy}
-test io-40.2 {POSIX open access modes: CREAT} {unix} {
+test io-40.2 {POSIX open access modes: CREAT} {
file delete $path(test3)
- set f [open $path(test3) {WRONLY CREAT} 0600]
+ set f [open $path(test3) {WRONLY CREAT} 0o666]
file stat $path(test3) stats
- set x [format "0%o" [expr $stats(mode)&0o777]]
+ set x [format "0o%o" [expr $stats(mode)&0o777]]
puts $f "line 1"
close $f
set f [open $path(test3) r]
lappend x [gets $f]
close $f
set x
-} {0600 {line 1}}
+} {0o666 {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)