summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2003-10-06 09:49:19 (GMT)
committervincentdarley <vincentdarley>2003-10-06 09:49:19 (GMT)
commit667a4aad934603ef865cba2b5b15f4c5687dc0c4 (patch)
tree65328a9bee43268f3dc141a59f2f3d9a446710fd /tests
parentce5f8d3fdff40fbd42079a7d4c6acf2671e42c62 (diff)
downloadtcl-667a4aad934603ef865cba2b5b15f4c5687dc0c4.zip
tcl-667a4aad934603ef865cba2b5b15f4c5687dc0c4.tar.gz
tcl-667a4aad934603ef865cba2b5b15f4c5687dc0c4.tar.bz2
filesystem bug fixes: volumerelative normalization, file join inconsistency
Diffstat (limited to 'tests')
-rw-r--r--tests/fileName.test19
1 files changed, 18 insertions, 1 deletions
diff --git a/tests/fileName.test b/tests/fileName.test
index e858caa..830618b 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.2 2003/10/03 17:25:22 vincentdarley Exp $
+# RCS: @(#) $Id: fileName.test,v 1.30.2.3 2003/10/06 09:49:20 vincentdarley Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -903,6 +903,23 @@ test filename-9.19 {Tcl_JoinPath: win} {testsetplatform} {
[file join C:/blah {C:\foo\bar}] \
[file join C:/blah C:/blah {C:\foo\bar}]
} {C:/foo/bar C:/foo/bar C:/foo/bar}
+test filename-9.19.1 {Tcl_JoinPath: win} {testsetplatform} {
+ testsetplatform win
+ set res {}
+ lappend res \
+ [file join {foo\bar}] \
+ [file join C:/blah {foo\bar}] \
+ [file join C:/blah C:/blah {foo\bar}]
+} {foo/bar C:/blah/foo/bar C:/blah/foo/bar}
+test filename-9.19.2 {Tcl_JoinPath: win} {testsetplatform winOnly} {
+ testsetplatform win
+ set res {}
+ lappend res \
+ [file join {foo\bar}] \
+ [file join [pwd] {foo\bar}] \
+ [file join [pwd] [pwd] {foo\bar}]
+ string map [list [pwd] pwd] $res
+} {foo/bar pwd/foo/bar pwd/foo/bar}
test filename-9.20 {Tcl_JoinPath: unix} {testsetplatform} {
testsetplatform unix
set res {}