diff options
Diffstat (limited to 'tests/tm.test')
| -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] |