diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-03-17 19:29:41 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-03-17 19:29:41 (GMT) |
| commit | ffa58c2b26dfdfa393cbd383ce80469028c497c1 (patch) | |
| tree | b9f97a5eb958c59139491dc030248856cf330e7a /tests | |
| parent | 60a59c56d556992340418492d2e3c9fe568b83c0 (diff) | |
| download | tcl-ffa58c2b26dfdfa393cbd383ce80469028c497c1.zip tcl-ffa58c2b26dfdfa393cbd383ce80469028c497c1.tar.gz tcl-ffa58c2b26dfdfa393cbd383ce80469028c497c1.tar.bz2 | |
Reverted changes to tcltest so that it can still support Mac when
copied to Mac systems (only requires Tcl 8.3).
Diffstat (limited to 'tests')
| -rwxr-xr-x | tests/tcltest.test | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/tcltest.test b/tests/tcltest.test index a652407..79b9869 100755 --- a/tests/tcltest.test +++ b/tests/tcltest.test @@ -6,7 +6,7 @@ # Copyright (c) 2000 by Ajuba Solutions # All rights reserved. # -# RCS: @(#) $Id: tcltest.test,v 1.38 2004/03/17 18:14:18 das Exp $ +# RCS: @(#) $Id: tcltest.test,v 1.39 2004/03/17 19:29:43 dgp Exp $ # Note that there are several places where the value of # tcltest::currentFailure is stored/reset in the -setup/-cleanup @@ -525,6 +525,9 @@ set a [makeFile { set tdiaf [makeFile {} thisdirectoryisafile] set normaldirectory [makeDirectory normaldirectory] +if {$::tcl_platform(platform) == "macintosh"} { +set normaldirectory [file normalize $normaldirectory] +} # -tmpdir, [temporaryDirectory] test tcltest-8.1 {tcltest a.tcl -tmpdir a} {unixOrPc} { |