summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/README2
-rw-r--r--tests/all.tcl2
-rw-r--r--tests/defs.tcl2
-rw-r--r--tests/event.test2
-rw-r--r--tests/msgcat.test2
-rw-r--r--tests/pkgMkIndex.test2
-rw-r--r--tests/socket.test2
-rw-r--r--tests/thread.test2
-rw-r--r--tests/unixInit.test4
-rw-r--r--tests/winFile.test16
10 files changed, 25 insertions, 11 deletions
diff --git a/tests/README b/tests/README
index 3b22393..e8fb992 100644
--- a/tests/README
+++ b/tests/README
@@ -1,6 +1,6 @@
README -- Tcl test suite design document.
-RCS: @(#) $Id: README,v 1.4 1999/04/20 18:12:18 hershey Exp $
+RCS: @(#) $Id: README,v 1.5 1999/04/21 21:50:29 rjohnson Exp $
Contents:
---------
diff --git a/tests/all.tcl b/tests/all.tcl
index 099e3ad..d6d898c 100644
--- a/tests/all.tcl
+++ b/tests/all.tcl
@@ -7,7 +7,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: all.tcl,v 1.3 1999/04/17 00:32:32 hershey Exp $
+# RCS: @(#) $Id: all.tcl,v 1.4 1999/04/21 21:50:30 rjohnson Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
source [file join [pwd] [file dirname [info script]] defs.tcl]
diff --git a/tests/defs.tcl b/tests/defs.tcl
index 999c9a9..d5a6913 100644
--- a/tests/defs.tcl
+++ b/tests/defs.tcl
@@ -11,7 +11,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: defs.tcl,v 1.4 1999/04/20 19:19:35 hershey Exp $
+# RCS: @(#) $Id: defs.tcl,v 1.5 1999/04/21 21:50:30 rjohnson Exp $
# Initialize wish shell
diff --git a/tests/event.test b/tests/event.test
index d398b5e..e6667ab 100644
--- a/tests/event.test
+++ b/tests/event.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: event.test,v 1.5 1999/04/20 19:19:35 hershey Exp $
+# RCS: @(#) $Id: event.test,v 1.6 1999/04/21 21:50:30 rjohnson Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
source [file join [pwd] [file dirname [info script]] defs.tcl]
diff --git a/tests/msgcat.test b/tests/msgcat.test
index 9dda28b..1d000a3 100644
--- a/tests/msgcat.test
+++ b/tests/msgcat.test
@@ -12,7 +12,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: msgcat.test,v 1.3 1999/04/19 20:23:41 hershey Exp $
+# RCS: @(#) $Id: msgcat.test,v 1.4 1999/04/21 21:50:30 rjohnson Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
source [file join [pwd] [file dirname [info script]] defs.tcl]
diff --git a/tests/pkgMkIndex.test b/tests/pkgMkIndex.test
index daad69b..ce9d00a 100644
--- a/tests/pkgMkIndex.test
+++ b/tests/pkgMkIndex.test
@@ -8,7 +8,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: pkgMkIndex.test,v 1.7 1999/04/19 20:23:41 hershey Exp $
+# RCS: @(#) $Id: pkgMkIndex.test,v 1.8 1999/04/21 21:50:31 rjohnson Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
source [file join [pwd] [file dirname [info script]] defs.tcl]
diff --git a/tests/socket.test b/tests/socket.test
index 8ca46ff..dc8331c 100644
--- a/tests/socket.test
+++ b/tests/socket.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: socket.test,v 1.8 1999/04/20 18:12:18 hershey Exp $
+# RCS: @(#) $Id: socket.test,v 1.9 1999/04/21 21:50:31 rjohnson Exp $
# Running socket tests with a remote server:
# ------------------------------------------
diff --git a/tests/thread.test b/tests/thread.test
index 0780e7a..14ecab8 100644
--- a/tests/thread.test
+++ b/tests/thread.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: thread.test,v 1.3 1999/04/20 18:12:19 hershey Exp $
+# RCS: @(#) $Id: thread.test,v 1.4 1999/04/21 21:50:31 rjohnson Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
source [file join [pwd] [file dirname [info script]] defs.tcl]
diff --git a/tests/unixInit.test b/tests/unixInit.test
index 747907f..7ed56b7 100644
--- a/tests/unixInit.test
+++ b/tests/unixInit.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: unixInit.test,v 1.3 1999/04/19 20:23:42 hershey Exp $
+# RCS: @(#) $Id: unixInit.test,v 1.4 1999/04/21 21:50:31 rjohnson Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -139,7 +139,7 @@ test unixInit-2.6 {TclpInitLibraryPath: executable relative} \
set x [lrange [getlibpath /tmp/sparkly/bin/tcltest] 0 1]
file delete -force /tmp/sparkly
set x
-} [list /tmp/sparkly/lib/tcl[info tclversion] /tmp/tcl[info patchlevel]/library]
+} [list /tmp/sparkly/lib/tcl[info tclversion] /tmp/tcl[info tclversion]/library]
test unixInit-2.7 {TclpInitLibraryPath: compiled-in library path} \
{emptyTest unixOnly} {
# would need test command to get defaultLibDir and compare it to
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