diff options
author | stanton <stanton> | 1998-09-21 23:39:52 (GMT) |
---|---|---|
committer | stanton <stanton> | 1998-09-21 23:39:52 (GMT) |
commit | 494c2de3a748b449c69ce322a1a741f5a31fd4d5 (patch) | |
tree | c3ece48c0ae3f4ba54787e0e8e729b65752ef3f9 /tests/unixFCmd.test | |
parent | 7a698c0488d99c0af42022714638ae1ba2afaa49 (diff) | |
download | tcl-494c2de3a748b449c69ce322a1a741f5a31fd4d5.zip tcl-494c2de3a748b449c69ce322a1a741f5a31fd4d5.tar.gz tcl-494c2de3a748b449c69ce322a1a741f5a31fd4d5.tar.bz2 |
Added contents of Tcl 8.1a2
Diffstat (limited to 'tests/unixFCmd.test')
-rw-r--r-- | tests/unixFCmd.test | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/tests/unixFCmd.test b/tests/unixFCmd.test index 037b5b4..2f3fe9e 100644 --- a/tests/unixFCmd.test +++ b/tests/unixFCmd.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) unixFCmd.test 1.15 97/11/03 15:58:22 +# SCCS: @(#) unixFCmd.test 1.17 97/12/08 15:05:53 if {[string compare test [info procs test]] == 1} then {source defs} @@ -166,7 +166,7 @@ if {[catch {exec {groups}} groupList] == 0} { test unixFCmd-12.1 {GetGroupAttribute - file not found} { catch {file delete -force -- foo.test} list [catch {file attributes foo.test -group} msg] $msg -} {1 {could not stat file "foo.test": no such file or directory}} +} {1 {could not read "foo.test": no such file or directory}} test unixFCmd-12.2 {GetGroupAttribute - file found} { catch {file delete -force -- foo.test} close [open foo.test w] @@ -176,7 +176,7 @@ test unixFCmd-12.2 {GetGroupAttribute - file found} { test unixFCmd-13.1 {GetOwnerAttribute - file not found} { catch {file delete -force -- foo.test} list [catch {file attributes foo.test -group} msg] $msg -} {1 {could not stat file "foo.test": no such file or directory}} +} {1 {could not read "foo.test": no such file or directory}} test unixFCmd-13.2 {GetOwnerAttribute} { catch {file delete -force -- foo.test} close [open foo.test w] @@ -186,7 +186,7 @@ test unixFCmd-13.2 {GetOwnerAttribute} { test unixFCmd-14.1 {GetPermissionsAttribute - file not found} { catch {file delete -force -- foo.test} list [catch {file attributes foo.test -permissions} msg] $msg -} {1 {could not stat file "foo.test": no such file or directory}} +} {1 {could not read "foo.test": no such file or directory}} test unixFCmd-14.2 {GetPermissionsAttribute} { catch {file delete -force -- foo.test} close [open foo.test w] @@ -249,3 +249,4 @@ test unixFCmd-18.1 {Unix pwd} {nonPortable} { } {1 {error getting working directory name:}} cleanup +return |