diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-11-05 09:21:45 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-11-05 09:21:45 (GMT) |
| commit | d00128bb38588944ba1cde058338626dfe59a062 (patch) | |
| tree | 47e4c835ec2779af991976bcd9a8c14f768177b3 /tests | |
| parent | 04fb15dfa808ce3abed5ecb095a92b5350b11a7b (diff) | |
| download | tcl-d00128bb38588944ba1cde058338626dfe59a062.zip tcl-d00128bb38588944ba1cde058338626dfe59a062.tar.gz tcl-d00128bb38588944ba1cde058338626dfe59a062.tar.bz2 | |
Add [file normalize] so expected paths come out right on Windows. [Bug 1053568]
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/tm.test | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/tm.test b/tests/tm.test index 9327530..9f5a83a 100644 --- a/tests/tm.test +++ b/tests/tm.test @@ -6,7 +6,7 @@ # Copyright (c) 2004 by Donal K. Fellows. # All rights reserved. # -# RCS: @(#) $Id: tm.test,v 1.4 2004/10/29 15:39:10 dkf Exp $ +# RCS: @(#) $Id: tm.test,v 1.5 2004/11/05 09:21:46 dkf Exp $ package require Tcl 8.5 if {"::tcltest" ni [namespace children]} { @@ -200,6 +200,8 @@ test tm-3.11 {tm: module path management, remove ignores unknown path} -setup { proc genpaths {base} { + # Normalizing picks up drive letters on windows [Bug 1053568] + set base [file normalize $base] foreach {major minor} [split [info tclversion] .] break set results {} lappend results [file join $base site-tcl] |