diff options
| author | vincentdarley <vincentdarley@noemail.net> | 2003-11-10 17:57:21 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley@noemail.net> | 2003-11-10 17:57:21 (GMT) |
| commit | 977346e82a6f1774882c32550f2d2a89cb7f3f51 (patch) | |
| tree | e107660cbdfa57cb8a1ee3fdddf35f670bd679b7 /tests | |
| parent | f702cbc7f12e7bb93acebabd3331c6235a59dc5d (diff) | |
| download | tcl-977346e82a6f1774882c32550f2d2a89cb7f3f51.zip tcl-977346e82a6f1774882c32550f2d2a89cb7f3f51.tar.gz tcl-977346e82a6f1774882c32550f2d2a89cb7f3f51.tar.bz2 | |
fix to misleading error message
FossilOrigin-Name: 5a025a528e62d5eac3ef981127fbf50cae8260cd
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/fCmd.test | 10 |
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 |