diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | tests/tm.test | 4 |
2 files changed, 8 insertions, 1 deletions
@@ -1,3 +1,8 @@ +2004-11-05 Donal K. Fellows <donal.k.fellows@man.ac.uk> + + * tests/tm.test (genpaths): Add a [file normalize] so we pick up + Windows drive letters, etc. [Bug 1053568] + 2004-11-04 Don Porter <dgp@users.sourceforge.net> * changes: Updates toward an 8.5a2 release. 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] |