diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-11-09 15:50:14 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-11-09 15:50:14 (GMT) |
| commit | 36e74b9e8d9617fef6cde92fcc36e8f17d83d8b7 (patch) | |
| tree | cdd05b561e2df4bf16637d49b93bcee258605c74 /tests | |
| parent | fa56430c8b7ebbd159d6e3b45ecfd04f2a193d9b (diff) | |
| parent | 4d0be555a4f1ed502289bf66a443422adbad2070 (diff) | |
| download | tcl-36e74b9e8d9617fef6cde92fcc36e8f17d83d8b7.zip tcl-36e74b9e8d9617fef6cde92fcc36e8f17d83d8b7.tar.gz tcl-36e74b9e8d9617fef6cde92fcc36e8f17d83d8b7.tar.bz2 | |
Merge 8.6
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} |