diff options
author | vincentdarley <vincentdarley@noemail.net> | 2003-10-06 09:49:19 (GMT) |
---|---|---|
committer | vincentdarley <vincentdarley@noemail.net> | 2003-10-06 09:49:19 (GMT) |
commit | 222db3303ccff799e89cc7b840d1745179c42ac3 (patch) | |
tree | 65328a9bee43268f3dc141a59f2f3d9a446710fd /tests/fileName.test | |
parent | a37f3600a44a4a7de0d4218ad86a2e132209bf5e (diff) | |
download | tcl-222db3303ccff799e89cc7b840d1745179c42ac3.zip tcl-222db3303ccff799e89cc7b840d1745179c42ac3.tar.gz tcl-222db3303ccff799e89cc7b840d1745179c42ac3.tar.bz2 |
filesystem bug fixes: volumerelative normalization, file join inconsistency
FossilOrigin-Name: a3d43f8f9643c77bc5f894bd9cfb1a7a592823a6
Diffstat (limited to 'tests/fileName.test')
-rw-r--r-- | tests/fileName.test | 19 |
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 {} |