diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-11-19 17:29:34 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-11-19 17:29:34 (GMT) |
| commit | 7615ed1078ceb41b68c7bdb14ab39674688cc087 (patch) | |
| tree | 614f170bddbb4fcebe8b5b4ca34c4f847c6e8ca0 /tests | |
| parent | 37295b4c1cb1855a1b41ee04672cf25df3e56f9d (diff) | |
| parent | bb2edf53775d20639bf171c51667cea8e21cfcea (diff) | |
| download | tcl-7615ed1078ceb41b68c7bdb14ab39674688cc087.zip tcl-7615ed1078ceb41b68c7bdb14ab39674688cc087.tar.gz tcl-7615ed1078ceb41b68c7bdb14ab39674688cc087.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/fCmd.test | 10 | ||||
| -rw-r--r-- | tests/tcltest.test | 4 |
2 files changed, 7 insertions, 7 deletions
diff --git a/tests/fCmd.test b/tests/fCmd.test index d1d1930..13f3720 100644 --- a/tests/fCmd.test +++ b/tests/fCmd.test @@ -374,7 +374,7 @@ test fCmd-4.14 {TclFileMakeDirsCmd: TclpCreateDirectory fails} -setup { file delete -force foo } -constraints {unix notRoot} -body { file mkdir foo - file attr foo -perm 040000 + file attr foo -perm 0o40000 file mkdir foo/tf1 } -returnCodes error -cleanup { file delete -force foo @@ -687,11 +687,11 @@ test fCmd-6.30 {CopyRenameOneFile: TclpRemoveDirectory failed} -setup { cleanup $tmpspace } -constraints {unix notRoot} -body { file mkdir foo/bar - file attr foo -perm 040555 + file attr foo -perm 0o40555 file rename foo/bar $tmpspace } -returnCodes error -cleanup { catch {file delete [file join $tmpspace bar]} - catch {file attr foo -perm 040777} + catch {file attr foo -perm 0o40777} catch {file delete -force foo} } -match glob -result {*: permission denied} test fCmd-6.31 {CopyRenameOneFile: TclpDeleteFile passed} -setup { @@ -744,7 +744,7 @@ test fCmd-8.1 {FileBasename: basename of ~user: argc == 1 && *path == ~} \ -constraints {unix notRoot knownBug} -body { # Labelled knownBug because it is dangerous [Bug: 3881] file mkdir td1 - file attr td1 -perm 040000 + file attr td1 -perm 0o40000 file rename ~$user td1 } -returnCodes error -cleanup { file delete -force td1 @@ -763,7 +763,7 @@ test fCmd-9.1 {file rename: comprehensive: EACCES} -setup { } -constraints {unix notRoot} -body { file mkdir td1 file mkdir td2 - file attr td2 -perm 040000 + file attr td2 -perm 0o40000 file rename td1 td2/ } -returnCodes error -cleanup { file delete -force td2 diff --git a/tests/tcltest.test b/tests/tcltest.test index 3177580..a9ce785 100644 --- a/tests/tcltest.test +++ b/tests/tcltest.test @@ -716,8 +716,8 @@ test tcltest-8.60 {::workingDirectory} { switch -- $::tcl_platform(platform) { unix { - file attributes $notReadableDir -permissions 777 - file attributes $notWriteableDir -permissions 777 + file attributes $notReadableDir -permissions 0o777 + file attributes $notWriteableDir -permissions 0o777 } default { catch {testchmod 0o777 $notWriteableDir} |