diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-11-09 11:28:19 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-11-09 11:28:19 (GMT) |
| commit | 4d0be555a4f1ed502289bf66a443422adbad2070 (patch) | |
| tree | 6c4218aafc6e7aa7735a59b43d45e7bf9dc6d7e4 | |
| parent | fabf9b4e5371867db54cc26cabadd71ff07dabc9 (diff) | |
| download | tcl-4d0be555a4f1ed502289bf66a443422adbad2070.zip tcl-4d0be555a4f1ed502289bf66a443422adbad2070.tar.gz tcl-4d0be555a4f1ed502289bf66a443422adbad2070.tar.bz2 | |
Use octal permissions in testcases
| -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 f175e41..dad1af9 100644 --- a/tests/fCmd.test +++ b/tests/fCmd.test @@ -384,7 +384,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 @@ -697,11 +697,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 { @@ -754,7 +754,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 @@ -773,7 +773,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 9b1bb4b..8a0174d 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} |