summaryrefslogtreecommitdiffstats
path: root/tests/fCmd.test
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2003-06-23 10:21:15 (GMT)
committervincentdarley <vincentdarley>2003-06-23 10:21:15 (GMT)
commiteea83c1b1338eb36aa325d64c83fec6c7f27abfa (patch)
tree10ccde0a31ac8fea50b2ab3d79facaaeb9a90025 /tests/fCmd.test
parente9c6b53e0ce2ff9f99e115a67a245917e5839320 (diff)
downloadtcl-eea83c1b1338eb36aa325d64c83fec6c7f27abfa.zip
tcl-eea83c1b1338eb36aa325d64c83fec6c7f27abfa.tar.gz
tcl-eea83c1b1338eb36aa325d64c83fec6c7f27abfa.tar.bz2
file copy empty filename bug fix
Diffstat (limited to 'tests/fCmd.test')
-rw-r--r--tests/fCmd.test12
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