summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorstanton <stanton>1999-06-17 19:30:25 (GMT)
committerstanton <stanton>1999-06-17 19:30:25 (GMT)
commit36fade5673a2b490fdbcdb5e782dcd8c906304d2 (patch)
tree12cb78e0f616e3bb360eafc126717bad52f22606 /tests
parente544512a2dd0604f3824a9f9532fe64b4d30606c (diff)
downloadtcl-36fade5673a2b490fdbcdb5e782dcd8c906304d2.zip
tcl-36fade5673a2b490fdbcdb5e782dcd8c906304d2.tar.gz
tcl-36fade5673a2b490fdbcdb5e782dcd8c906304d2.tar.bz2
* generic/regcomp.c: lint
* tests/reg.test: * generic/regex.h: * generic/regc_lex.c: Added REG_BOSONLY flag to allow Expect to iterate through a string an only find matches that start at the current position within the string.
Diffstat (limited to 'tests')
-rw-r--r--tests/reg.test5
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/reg.test b/tests/reg.test
index 40efbdb..4b51248 100644
--- a/tests/reg.test
+++ b/tests/reg.test
@@ -6,7 +6,7 @@
#
# Copyright (c) 1998, 1999 Henry Spencer. All rights reserved.
#
-# RCS: @(#) $Id: reg.test,v 1.3 1999/06/02 01:53:32 stanton Exp $
+# RCS: @(#) $Id: reg.test,v 1.4 1999/06/17 19:30:26 stanton Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -932,6 +932,9 @@ m 3 N a?b* bb bb
m 4 & a*b aab aab
m 5 & ^a*b aaaab aaaab
m 6 &M {[0-6][1-2][0-3][0-6][1-6][0-6]} 010010 010010
+# temporary REG_BOSONLY kludge
+m 7 s abc abcd abc
+f 8 s abc xabcd