diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-03 13:51:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-03 13:51:18 (GMT) |
| commit | defc33228dae46280943ff6cc62d3a4a3284e056 (patch) | |
| tree | 5b46d34089b0516431704c23338686ba913e602f /tests/chanio.test | |
| parent | 910d0222de6f3bd8fdf3b7c061cdb89581b2f2df (diff) | |
| download | tcl-defc33228dae46280943ff6cc62d3a4a3284e056.zip tcl-defc33228dae46280943ff6cc62d3a4a3284e056.tar.gz tcl-defc33228dae46280943ff6cc62d3a4a3284e056.tar.bz2 | |
Use 0o??? notation for octal numbers in tools and testcases in stead of 0???. Although it still works in 8.6, it is deprecated an will be removed in 9.0.
Diffstat (limited to 'tests/chanio.test')
| -rw-r--r-- | tests/chanio.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/chanio.test b/tests/chanio.test index 1f9e19b..ffb4e91 100644 --- a/tests/chanio.test +++ b/tests/chanio.test @@ -5336,14 +5336,14 @@ test chan-io-40.2 {POSIX open access modes: CREAT} -setup { } -constraints {unix} -body { set f [open $path(test3) {WRONLY CREAT} 0600] file stat $path(test3) stats - set x [format "%#o" [expr {$stats(mode) & 0o777}]] + set x [format 0o%03o [expr {$stats(mode) & 0o777}]] chan puts $f "line 1" chan close $f set f [open $path(test3) r] lappend x [chan gets $f] } -cleanup { chan close $f -} -result {0600 {line 1}} +} -result {0o600 {line 1}} test chan-io-40.3 {POSIX open access modes: CREAT} -setup { file delete $path(test3) } -constraints {unix umask} -body { |