diff options
| author | jan.nijtmans <jan.nijtmans@noemail.net> | 2011-10-11 13:19:54 (GMT) |
|---|---|---|
| committer | jan.nijtmans <jan.nijtmans@noemail.net> | 2011-10-11 13:19:54 (GMT) |
| commit | d6725c442788d4a59a46158c2fda2ef82f4e2a8c (patch) | |
| tree | 9494539c9c9fdff546f7b6e6c825cdff99f9a96e /tests | |
| parent | 0ab93fb452a435bf4e4302246e0518ac449def0a (diff) | |
| download | tcl-d6725c442788d4a59a46158c2fda2ef82f4e2a8c.zip tcl-d6725c442788d4a59a46158c2fda2ef82f4e2a8c.tar.gz tcl-d6725c442788d4a59a46158c2fda2ef82f4e2a8c.tar.bz2 | |
[Bug 2935503] Incorrect mode field returned by file stat command
FossilOrigin-Name: 77f44a0961be6a944adedbdaa141fccd01430d31
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/io.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/io.test b/tests/io.test index ed2619a..6029f18 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} {unixOnly} { +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} 0666] 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} {unixOnly} { lappend x [gets $f] close $f set x -} {0600 {line 1}} +} {0666 {line 1}} # some tests can only be run is umask is 2 # if "umask" cannot be run, the tests will be skipped. |