summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2003-11-10 17:57:21 (GMT)
committervincentdarley <vincentdarley>2003-11-10 17:57:21 (GMT)
commit9cbce5efc355585cae58e0f20411f60dc7146b1c (patch)
treee107660cbdfa57cb8a1ee3fdddf35f670bd679b7 /tests
parent270606c9e6bda0ab969876505b4cf0a795abdd0b (diff)
downloadtcl-9cbce5efc355585cae58e0f20411f60dc7146b1c.zip
tcl-9cbce5efc355585cae58e0f20411f60dc7146b1c.tar.gz
tcl-9cbce5efc355585cae58e0f20411f60dc7146b1c.tar.bz2
fix to misleading error message
Diffstat (limited to 'tests')
-rw-r--r--tests/fCmd.test10
1 files changed, 9 insertions, 1 deletions
diff --git a/tests/fCmd.test b/tests/fCmd.test
index 12ef859..38bfcd4 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.31 2003/10/07 16:00:33 dgp Exp $
+# RCS: @(#) $Id: fCmd.test,v 1.32 2003/11/10 17:57:21 vincentdarley Exp $
#
if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -2308,6 +2308,14 @@ test fCmd-28.10 {file link: linking to nonexistent path} {linkDirectory} {
set res
} {1 {could not create new link "abc.link" since target "abc2.doesnt" doesn't exist}}
+test fCmd-28.10.1 {file link: linking to nonexistent path} {linkDirectory} {
+ cd [temporaryDirectory]
+ file delete -force abc.link
+ set res [list [catch {file link doesnt/abc.link abc.dir} msg] $msg]
+ cd [workingDirectory]
+ set res
+} {1 {could not create new link "doesnt/abc.link": no such file or directory}}
+
test fCmd-28.11 {file link: success with directory} {linkDirectory} {
cd [temporaryDirectory]
file delete -force abc.link