diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-03-18 17:59:25 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-03-18 17:59:25 (GMT) |
| commit | a3cbfed957b0bb6f27adce4672cd01809ee22dbe (patch) | |
| tree | 0f4fc42f527f94efc8ce082f47e2891b5648ca9d /tests/unixFCmd.test | |
| parent | 0e364dd3151b7ead1200e77e0024c811c9d3ed52 (diff) | |
| download | tcl-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.test | 15 |
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} { |