diff options
| author | rjohnson <rjohnson> | 1999-04-21 21:50:22 (GMT) |
|---|---|---|
| committer | rjohnson <rjohnson> | 1999-04-21 21:50:22 (GMT) |
| commit | 1df32a4d2cd7f7221d1e1310817ee0af71057111 (patch) | |
| tree | 052e39d4c88db47521c59ebe5546302186a5022f /tests/winFile.test | |
| parent | d2a3e887caf524096070bbe8667b700520357b4b (diff) | |
| download | tcl-1df32a4d2cd7f7221d1e1310817ee0af71057111.zip tcl-1df32a4d2cd7f7221d1e1310817ee0af71057111.tar.gz tcl-1df32a4d2cd7f7221d1e1310817ee0af71057111.tar.bz2 | |
Resynced with mainline.
Diffstat (limited to 'tests/winFile.test')
| -rw-r--r-- | tests/winFile.test | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/tests/winFile.test b/tests/winFile.test index 677150d..c343141 100644 --- a/tests/winFile.test +++ b/tests/winFile.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: winFile.test,v 1.2 1999/04/16 00:47:37 stanton Exp $ +# RCS: @(#) $Id: winFile.test,v 1.3 1999/04/21 21:50:32 rjohnson Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -47,6 +47,20 @@ test winFile-1.3 {TclpGetUserHome} {nt nonPortable} { catch {glob ~stanton@workgroup} } {0} +test winFile-2.1 {TclpMatchFiles: case sensitivity} {pcOnly} { + makeFile {} GlobCapS + set result [list [glob -nocomplain GlobC*] [glob -nocomplain globc*]] + removeFile GlobCapS + set result +} {GlobCapS GlobCapS} + +test winFile-2.2 {TclpMatchFiles: case sensitivity} {pcOnly} { + makeFile {} globlower + set result [list [glob -nocomplain globl*] [glob -nocomplain gLOBl*]] + removeFile globlower + set result +} {globlower globlower} + # cleanup ::tcltest::cleanupTests return |