summaryrefslogtreecommitdiffstats
path: root/tests/unixFCmd.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-03-18 17:59:25 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-03-18 17:59:25 (GMT)
commita3cbfed957b0bb6f27adce4672cd01809ee22dbe (patch)
tree0f4fc42f527f94efc8ce082f47e2891b5648ca9d /tests/unixFCmd.test
parent0e364dd3151b7ead1200e77e0024c811c9d3ed52 (diff)
downloadtcl-a3cbfed957b0bb6f27adce4672cd01809ee22dbe.zip
tcl-a3cbfed957b0bb6f27adce4672cd01809ee22dbe.tar.gz
tcl-a3cbfed957b0bb6f27adce4672cd01809ee22dbe.tar.bz2
Test independence in unixFCmd.test.
Diffstat (limited to 'tests/unixFCmd.test')
-rw-r--r--tests/unixFCmd.test15
1 files changed, 8 insertions, 7 deletions
diff --git a/tests/unixFCmd.test b/tests/unixFCmd.test
index f60e04c..fa0ca5b 100644
--- a/tests/unixFCmd.test
+++ b/tests/unixFCmd.test
@@ -309,20 +309,21 @@ test unixFCmd-17.4 {SetPermissionsAttribute} {unix notRoot} {
close [open foo.test w]
set ::i 4
-proc permcheck {testnum permstr expected} {
+proc permcheck {testnum permList expected} {
test $testnum {SetPermissionsAttribute} {unix notRoot} {
+ set result {}
+ foreach permstr $permList {
file attributes foo.test -permissions $permstr
- file attributes foo.test -permissions
+ lappend result [file attributes foo.test -permissions]
+ }
+ set result
} $expected
}
permcheck unixFCmd-17.5 rwxrwxrwx 00777
permcheck unixFCmd-17.6 r--r---w- 00442
-permcheck unixFCmd-17.7 0 00000
-permcheck unixFCmd-17.8 u+rwx,g+r 00740
-permcheck unixFCmd-17.9 u-w 00540
-permcheck unixFCmd-17.10 o+rwx 00547
+permcheck unixFCmd-17.7 {0 u+rwx,g+r u-w o+rwx} {00000 00740 00540 00547}
permcheck unixFCmd-17.11 --x--x--x 00111
-permcheck unixFCmd-17.12 a+rwx 00777
+permcheck unixFCmd-17.12 {0 a+rwx} {00000 00777}
file delete -force -- foo.test
test unixFCmd-18.1 {Unix pwd} {nonPortable unix notRoot} {