From d00128bb38588944ba1cde058338626dfe59a062 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Fri, 5 Nov 2004 09:21:45 +0000
Subject: Add [file normalize] so expected paths come out right on Windows.
 [Bug 1053568]

---
 ChangeLog     | 5 +++++
 tests/tm.test | 4 +++-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 3c552e8..867c639 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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]
-- 
cgit v0.12