summaryrefslogtreecommitdiffstats
path: root/tests/fileName.test
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2008-07-20 20:24:45 (GMT)
committerKevin B Kenny <kennykb@acm.org>2008-07-20 20:24:45 (GMT)
commit884b5b343a6e60cb2a8ae23cbb8affd651b20fd8 (patch)
treedb8b5e7f822fdfc12cccd75448771b74782d6032 /tests/fileName.test
parentde532c94fa09b0520a3bba6eaa50d3f9f57b8000 (diff)
downloadtcl-884b5b343a6e60cb2a8ae23cbb8affd651b20fd8.zip
tcl-884b5b343a6e60cb2a8ae23cbb8affd651b20fd8.tar.gz
tcl-884b5b343a6e60cb2a8ae23cbb8affd651b20fd8.tar.bz2
* tests/fileName.test: Repaired the failing test fileName-15.7
from dkf's commit earlier today.
Diffstat (limited to 'tests/fileName.test')
-rw-r--r--tests/fileName.test4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/fileName.test b/tests/fileName.test
index af2a024..b1125de 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.52 2008/07/20 11:33:41 dkf Exp $
+# RCS: @(#) $Id: fileName.test,v 1.53 2008/07/20 20:24:45 kennykb Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -1331,7 +1331,7 @@ test filename-15.6 {unix specific globbing} -constraints {unix} -setup {
catch {file delete -force globTest/odd\\\[\]*?\{\}name}
test filename-15.7 {win specific globbing} -constraints {win} -body {
glob ~
-} -match glob -result {*[^/]}
+} -match regexp -result {[^/]$}
test filename-15.8 {win and unix specific globbing} -constraints {unixOrWin} -setup {
global env
set temp $env(HOME)