diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-04-28 08:00:51 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-04-28 08:00:51 (GMT) |
| commit | e5766f95f8b74aa6577cf8dff98d48a71ab9d131 (patch) | |
| tree | 6e85f7dd2b98f0c060086540c153617c8b70ae9d /tests/io.test | |
| parent | 69d1bdb95ef90f112d06b7ece0d6db57c504a030 (diff) | |
| parent | 2836feb5d8fbaffcd6371c423cd0a0b0eebac840 (diff) | |
| download | tcl-e5766f95f8b74aa6577cf8dff98d48a71ab9d131.zip tcl-e5766f95f8b74aa6577cf8dff98d48a71ab9d131.tar.gz tcl-e5766f95f8b74aa6577cf8dff98d48a71ab9d131.tar.bz2 | |
merge core-8-6-branchfix_1997007
Diffstat (limited to 'tests/io.test')
| -rw-r--r-- | tests/io.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/io.test b/tests/io.test index e2a05dc..197fc36 100644 --- a/tests/io.test +++ b/tests/io.test @@ -5652,8 +5652,8 @@ test io-40.3 {POSIX open access modes: CREAT} {unix umask} { set f [open $path(test3) {WRONLY CREAT}] close $f file stat $path(test3) stats - format "0%o" [expr $stats(mode)&0o777] -} [format %04o [expr {0o666 & ~ $umaskValue}]] + format "%#o" [expr $stats(mode)&0o777] +} [format %#4o [expr {0o666 & ~ $umaskValue}]] test io-40.4 {POSIX open access modes: CREAT} { file delete $path(test3) set f [open $path(test3) w] |