diff options
author | hobbs <hobbs> | 2001-05-15 21:23:53 (GMT) |
---|---|---|
committer | hobbs <hobbs> | 2001-05-15 21:23:53 (GMT) |
commit | 837efe75ca45a00ca55b499ef33fee55229e7e4f (patch) | |
tree | 3e99a7d38c14842960fcc5e8ff95b9ee9c9d8084 /tests | |
parent | 4f14cf7083765d0f333e20219b375cc320618a4e (diff) | |
download | tcl-837efe75ca45a00ca55b499ef33fee55229e7e4f.zip tcl-837efe75ca45a00ca55b499ef33fee55229e7e4f.tar.gz tcl-837efe75ca45a00ca55b499ef33fee55229e7e4f.tar.bz2 |
* tests/fileName.test: corrected tests not to fail on win when a
C:/test dir exists.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/fileName.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/fileName.test b/tests/fileName.test index a13b862..eb0b502 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.9 2000/09/29 01:12:15 hobbs Exp $ +# RCS: @(#) $Id: fileName.test,v 1.10 2001/05/15 21:23:53 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -1475,13 +1475,13 @@ test filename-16.4 {windows specific globbing} {pcOnly} { glob c:/ } c:/ test filename-16.5 {windows specific globbing} {pcOnly} { - glob c:*Test + glob c:*bTest } c:globTest test filename-16.6 {windows specific globbing} {pcOnly} { - glob c:\\\\*Test + glob c:\\\\*bTest } c:/globTest test filename-16.7 {windows specific globbing} {pcOnly} { - glob c:/*Test + glob c:/*bTest } c:/globTest test filename-16.8 {windows specific globbing} {pcOnly} { lsort [glob c:globTest/*.bat] |