summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2003-06-23 10:14:02 (GMT)
committervincentdarley <vincentdarley>2003-06-23 10:14:02 (GMT)
commite42bd5945d15a3616dc2412e70037724fbe20e37 (patch)
tree5df14649c5f9d7fb26d0a5440941db51293c8936 /tests
parent2d0356834339b6ced61df5517004e0943e44b5c5 (diff)
downloadtcl-e42bd5945d15a3616dc2412e70037724fbe20e37.zip
tcl-e42bd5945d15a3616dc2412e70037724fbe20e37.tar.gz
tcl-e42bd5945d15a3616dc2412e70037724fbe20e37.tar.bz2
filesystem fixes -- see ChangeLog
Diffstat (limited to 'tests')
-rw-r--r--tests/fCmd.test12
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