From 4d0be555a4f1ed502289bf66a443422adbad2070 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Tue, 9 Nov 2021 11:28:19 +0000
Subject: Use octal permissions in testcases

---
 tests/fCmd.test    | 10 +++++-----
 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}
-- 
cgit v0.12