diff options
| author | vincentdarley <vincentdarley> | 2004-01-26 13:33:57 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2004-01-26 13:33:57 (GMT) |
| commit | 59d2399845ff6227a2d56e27379f0e5093d1e55d (patch) | |
| tree | b91e8ab9672541fcd7f4d8b4274fb5cdae0fe0da /tests/fCmd.test | |
| parent | 532cf499694027af6614c6a70eeb557bb6d29a6a (diff) | |
| download | tcl-59d2399845ff6227a2d56e27379f0e5093d1e55d.zip tcl-59d2399845ff6227a2d56e27379f0e5093d1e55d.tar.gz tcl-59d2399845ff6227a2d56e27379f0e5093d1e55d.tar.bz2 | |
filesystem documentation and tests
Diffstat (limited to 'tests/fCmd.test')
| -rw-r--r-- | tests/fCmd.test | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/fCmd.test b/tests/fCmd.test index 79050a6..9be033c 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.36 2004/01/21 19:59:33 vincentdarley Exp $ +# RCS: @(#) $Id: fCmd.test,v 1.37 2004/01/26 13:33:59 vincentdarley Exp $ # if {[lsearch [namespace children] ::tcltest] == -1} { @@ -2340,7 +2340,9 @@ test fCmd-28.12 {file link: cd into a link} {linkDirectory} { # (on windows the former, on unix the latter, I believe) if {([file normalize $up] != [file normalize $orig]) \ && ([file normalize $up] != [file normalize [file dirname abc.dir]])} { - set res "wrong directory with 'cd $link ; cd ..'" + set res "wrong directory with 'cd abc.link ; cd ..': \ + \"[file normalize $up]\" should be \"[file normalize $orig]\" or\ + \"[file normalize [file dirname abc.dir]]\"" } else { set res "ok" } |