diff options
| author | vincentdarley <vincentdarley@noemail.net> | 2004-01-26 13:33:57 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley@noemail.net> | 2004-01-26 13:33:57 (GMT) |
| commit | eebf4fdf0036287eae9e9df0a45f0d96e19ceba1 (patch) | |
| tree | b91e8ab9672541fcd7f4d8b4274fb5cdae0fe0da /tests | |
| parent | 2e2cf79cb59c2eddabb230917309265d145bbd8a (diff) | |
| download | tcl-eebf4fdf0036287eae9e9df0a45f0d96e19ceba1.zip tcl-eebf4fdf0036287eae9e9df0a45f0d96e19ceba1.tar.gz tcl-eebf4fdf0036287eae9e9df0a45f0d96e19ceba1.tar.bz2 | |
filesystem documentation and tests
FossilOrigin-Name: 4837ad91312972c2b63e153c5aa63ed3aa382028
Diffstat (limited to 'tests')
| -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" } |