diff options
| author | vincentdarley <vincentdarley> | 2004-10-07 14:50:21 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2004-10-07 14:50:21 (GMT) |
| commit | d4961998794e12b24a57463f33d6d1976477cde3 (patch) | |
| tree | 56b0a5bc0092ddc26c1ff14e61906c9ea713c988 /tests/fileName.test | |
| parent | 4c14cd729fc9965bddaace767c865ce4a9825e89 (diff) | |
| download | tcl-d4961998794e12b24a57463f33d6d1976477cde3.zip tcl-d4961998794e12b24a57463f33d6d1976477cde3.tar.gz tcl-d4961998794e12b24a57463f33d6d1976477cde3.tar.bz2 | |
filesystem generic/platform code splitting
Diffstat (limited to 'tests/fileName.test')
| -rw-r--r-- | tests/fileName.test | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/tests/fileName.test b/tests/fileName.test index 9c6cbb1..0cf0c1c 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.43 2004/06/23 15:36:56 dkf Exp $ +# RCS: @(#) $Id: fileName.test,v 1.44 2004/10/07 14:50:23 vincentdarley Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -1484,6 +1484,18 @@ test filename-16.15 {windows specific globbing} {win} { test filename-16.16 {windows specific globbing} {win} { file tail [lindex [glob -nocomplain "[lindex [glob -types d -dir C:/ *] 0]/.."] 0] } {..} +test filename-16.17 {windows specific globbing} {win} { + cd C:/ + # Ensure correct trimming of tails with absolute and + # volume relative globbing. + set res1 [glob -nocomplain -tails -dir C:/ *] + set res2 [glob -nocomplain -tails -dir C: *] + if {$res1 eq $res2} { + concat ok + } else { + concat $res1 ne $res2 + } +} {ok} test filename-17.1 {windows specific special files} {testsetplatform} { testsetplatform win |