summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2017-04-17 11:59:35 (GMT)
committerdgp <dgp@users.sourceforge.net>2017-04-17 11:59:35 (GMT)
commit5daf5b67489f659bb4121e61ede89ec9f4b828fb (patch)
treeaf096482d00f431d3b000a159e11fa8e14b24016
parent73eb386816168576a6c42eea64be0b214e6d7d6c (diff)
downloadtcl-5daf5b67489f659bb4121e61ede89ec9f4b828fb.zip
tcl-5daf5b67489f659bb4121e61ede89ec9f4b828fb.tar.gz
tcl-5daf5b67489f659bb4121e61ede89ec9f4b828fb.tar.bz2
Repair revised tests that failed.
-rw-r--r--tests/chanio.test4
-rw-r--r--tests/io.test2
2 files changed, 3 insertions, 3 deletions
diff --git a/tests/chanio.test b/tests/chanio.test
index cee2675..db2475c 100644
--- a/tests/chanio.test
+++ b/tests/chanio.test
@@ -5345,7 +5345,7 @@ test chan-io-40.2 {POSIX open access modes: CREAT} -setup {
lappend x [chan gets $f]
} -cleanup {
chan close $f
-} -result {0o600 {line 1}}
+} -result {0600 {line 1}}
test chan-io-40.3 {POSIX open access modes: CREAT} -setup {
file delete $path(test3)
} -constraints {unix umask} -body {
@@ -5353,7 +5353,7 @@ test chan-io-40.3 {POSIX open access modes: CREAT} -setup {
chan close [open $path(test3) {WRONLY CREAT}]
file stat $path(test3) stats
format "%#o" [expr $stats(mode)&0o777]
-} -result [format %#5o [expr {0o666 & ~ $umaskValue}]]
+} -result [format %#4o [expr {0o666 & ~ $umaskValue}]]
test chan-io-40.4 {POSIX open access modes: CREAT} -setup {
file delete $path(test3)
} -body {
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]