diff options
author | stanton <stanton> | 1998-12-11 00:12:07 (GMT) |
---|---|---|
committer | stanton <stanton> | 1998-12-11 00:12:07 (GMT) |
commit | 58102fbcddfc85f922fa2b3eb60706c924052d79 (patch) | |
tree | f13273187e6d87c12ff947fe333de28938124a51 /tests/unixFCmd.test | |
parent | addad7778f3aebc09268eae355e5d2d442c75df7 (diff) | |
download | tcl-58102fbcddfc85f922fa2b3eb60706c924052d79.zip tcl-58102fbcddfc85f922fa2b3eb60706c924052d79.tar.gz tcl-58102fbcddfc85f922fa2b3eb60706c924052d79.tar.bz2 |
lint
Diffstat (limited to 'tests/unixFCmd.test')
-rw-r--r-- | tests/unixFCmd.test | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/tests/unixFCmd.test b/tests/unixFCmd.test index b8c6711..ad1c1fc 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. # -# RCS: @(#) $Id: unixFCmd.test,v 1.1.2.2 1998/09/24 23:59:39 stanton Exp $ +# RCS: @(#) $Id: unixFCmd.test,v 1.1.2.3 1998/12/11 00:12:08 stanton Exp $ if {[string compare test [info procs test]] == 1} then {source defs} @@ -84,13 +84,11 @@ test unixFCmd-1.7 {TclpRenameFile: EXDEV} { file mkdir foo/bar file attr foo -perm 040555 set msg [list [catch {file rename foo/bar /tmp} msg] $msg] - set a1 {1 {can't unlink "foo/bar": permission denied}} - set result [expr {$msg == $a1}] catch {file delete /tmp/bar} catch {file attr foo -perm 040777} catch {file delete -force foo} - set result -} {1} + set msg +} {1 {can't unlink "foo/bar": permission denied}} test unixFCmd-1.8 {Checking EINTR Bug} nonPortable { testalarm after 2000 |