diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-04-17 11:59:35 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-04-17 11:59:35 (GMT) |
| commit | 5daf5b67489f659bb4121e61ede89ec9f4b828fb (patch) | |
| tree | af096482d00f431d3b000a159e11fa8e14b24016 /tests/io.test | |
| parent | 73eb386816168576a6c42eea64be0b214e6d7d6c (diff) | |
| download | tcl-5daf5b67489f659bb4121e61ede89ec9f4b828fb.zip tcl-5daf5b67489f659bb4121e61ede89ec9f4b828fb.tar.gz tcl-5daf5b67489f659bb4121e61ede89ec9f4b828fb.tar.bz2 | |
Repair revised tests that failed.
Diffstat (limited to 'tests/io.test')
| -rw-r--r-- | tests/io.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/io.test b/tests/io.test index 7d8c80f..197fc36 100644 --- a/tests/io.test +++ b/tests/io.test @@ -5653,7 +5653,7 @@ test io-40.3 {POSIX open access modes: CREAT} {unix umask} { close $f file stat $path(test3) stats format "%#o" [expr $stats(mode)&0o777] -} [format %#5o [expr {0o666 & ~ $umaskValue}]] +} [format %#4o [expr {0o666 & ~ $umaskValue}]] test io-40.4 {POSIX open access modes: CREAT} { file delete $path(test3) set f [open $path(test3) w] |