summaryrefslogtreecommitdiffstats
path: root/tests/fileName.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2009-02-20 18:24:28 (GMT)
committerdgp <dgp@users.sourceforge.net>2009-02-20 18:24:28 (GMT)
commit66e884275c19a6e17f016bf828eed7b61431888b (patch)
tree8dbefadcd026e21c101edf3c5f493461db64ce87 /tests/fileName.test
parent013eca4890e05fe73b703f0392142edce980ddda (diff)
downloadtcl-66e884275c19a6e17f016bf828eed7b61431888b.zip
tcl-66e884275c19a6e17f016bf828eed7b61431888b.tar.gz
tcl-66e884275c19a6e17f016bf828eed7b61431888b.tar.bz2
* generic/tclPathObj.c: Fixed mistaken logic in TclFSGetPathType()
* tests/fileName.test: that assumed (not "absolute" => "relative"). This is a false assumption on Windows, where "volumerelative" is another possibility. [Bug 2571597].
Diffstat (limited to 'tests/fileName.test')
-rw-r--r--tests/fileName.test9
1 files changed, 8 insertions, 1 deletions
diff --git a/tests/fileName.test b/tests/fileName.test
index 138f5c6..6e9eb79 100644
--- a/tests/fileName.test
+++ b/tests/fileName.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: fileName.test,v 1.30.2.9 2008/08/14 13:07:58 dgp Exp $
+# RCS: @(#) $Id: fileName.test,v 1.30.2.10 2009/02/20 18:24:28 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -2000,6 +2000,13 @@ test filename-17.2 {windows specific glob with executable} {winOnly} {
removeDirectory execglob
set res
} {abc.exe}
+test filename-17.3 {Bug 2571597} win {
+ set p /a
+ file pathtype $p
+ file normalize $p
+ file pathtype $p
+} volumerelative
+
test fileName-18.1 {windows - split ADS name correctly} {winOnly} {
# bug 1194458