summaryrefslogtreecommitdiffstats
path: root/tests/winFile.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/winFile.test')
-rw-r--r--tests/winFile.test16
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