Artifact
9ec677947537cb5c728c9ddabf486e0033ba4923:
Attachment "tcl847bug.txt" to
ticket [1005454fff]
added by
lvirden
2004-08-08 17:49:05.
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