fCmd.test

==== fCmd-27.5 TclFileAttrsCmd - setting one option FAILED
==== Contents of test case:

    catch {file delete -force -- foo.tmp}
    createfile foo.tmp
    set attrs [file attributes foo.tmp]
    list [catch {eval file attributes foo.tmp [lrange $attrs 0 1]} msg] $msg [file delete -force -- 
foo.tmp]

---- Result was:
1 {could not set group for file "foo.tmp": not owner} {}
---- Result should have been (exact matching):
0 {} {}
==== fCmd-27.5 FAILED

==== fCmd-27.6 TclFileAttrsCmd - setting more than one option FAILED
==== Contents of test case:

    catch {file delete -force -- foo.tmp}
    createfile foo.tmp
    set attrs [file attributes foo.tmp]
    list [catch {eval file attributes foo.tmp [lrange $attrs 0 3]} msg] $msg [file delete -force -- 
foo.tmp]

---- Result was:
1 {could not set group for file "foo.tmp": not owner} {}
---- Result should have been (exact matching):
0 {} {}
==== fCmd-27.6 FAILED


