diff options
| author | vincentdarley <vincentdarley> | 2003-06-23 10:21:15 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2003-06-23 10:21:15 (GMT) |
| commit | eea83c1b1338eb36aa325d64c83fec6c7f27abfa (patch) | |
| tree | 10ccde0a31ac8fea50b2ab3d79facaaeb9a90025 /tests | |
| parent | e9c6b53e0ce2ff9f99e115a67a245917e5839320 (diff) | |
| download | tcl-eea83c1b1338eb36aa325d64c83fec6c7f27abfa.zip tcl-eea83c1b1338eb36aa325d64c83fec6c7f27abfa.tar.gz tcl-eea83c1b1338eb36aa325d64c83fec6c7f27abfa.tar.bz2 | |
file copy empty filename bug fix
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 c704032..8e4d265 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.26.2.1 2003/04/14 15:45:54 vincentdarley Exp $ +# RCS: @(#) $Id: fCmd.test,v 1.26.2.2 2003/06/23 10:21:16 vincentdarley Exp $ # if {[lsearch [namespace children] ::tcltest] == -1} { @@ -1001,6 +1001,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 |