diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-04-14 09:06:34 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-04-14 09:06:34 (GMT) |
commit | 1bfdefdad35caeaff3dcdfea5f35c70373332bb0 (patch) | |
tree | 5b67cfd7f26b58d25a5e3c6134d29162cc4ccc54 /tests/io.test | |
parent | 376e19aa5f5a32fa46e67e6c9f7d73b47f729426 (diff) | |
parent | 73eb386816168576a6c42eea64be0b214e6d7d6c (diff) | |
download | tcl-1bfdefdad35caeaff3dcdfea5f35c70373332bb0.zip tcl-1bfdefdad35caeaff3dcdfea5f35c70373332bb0.tar.gz tcl-1bfdefdad35caeaff3dcdfea5f35c70373332bb0.tar.bz2 |
merge core-8-6-branch
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 6e7420d..aaceec5 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 %#5o [expr {0o666 & ~ $umaskValue}]] test io-40.4 {POSIX open access modes: CREAT} { file delete $path(test3) set f [open $path(test3) w] |