diff options
| author | vincentdarley <vincentdarley> | 2003-06-23 10:14:02 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2003-06-23 10:14:02 (GMT) |
| commit | e42bd5945d15a3616dc2412e70037724fbe20e37 (patch) | |
| tree | 5df14649c5f9d7fb26d0a5440941db51293c8936 /tests | |
| parent | 2d0356834339b6ced61df5517004e0943e44b5c5 (diff) | |
| download | tcl-e42bd5945d15a3616dc2412e70037724fbe20e37.zip tcl-e42bd5945d15a3616dc2412e70037724fbe20e37.tar.gz tcl-e42bd5945d15a3616dc2412e70037724fbe20e37.tar.bz2 | |
filesystem fixes -- see ChangeLog
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/fCmd.test | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/tests/fCmd.test b/tests/fCmd.test index 5b2a89f..95da8d7 100644 --- a/tests/fCmd.test +++ b/tests/fCmd.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: fCmd.test,v 1.28 2003/06/02 15:58:46 vincentdarley Exp $ +# RCS: @(#) $Id: fCmd.test,v 1.29 2003/06/23 10:14:02 vincentdarley Exp $ # if {[lsearch [namespace children] ::tcltest] == -1} { @@ -1026,6 +1026,16 @@ test fCmd-10.10 {file copy: comprehensive: source and target incompatible} \ createfile tf1 list [catch {file copy -force tf1 td1} msg] $msg } [subst {1 {can't overwrite directory "[file join td1 tf1]" with file "tf1"}}] +test fCmd-10.11 {file copy: copy to empty file name} { + cleanup + createfile tf1 + list [catch {file copy tf1 ""} msg] $msg +} {1 {error copying "tf1" to "": no such file or directory}} +test fCmd-10.12 {file rename: rename to empty file name} { + cleanup + createfile tf1 + list [catch {file rename tf1 ""} msg] $msg +} {1 {error renaming "tf1" to "": no such file or directory}} cleanup # old tests |