summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorstanton <stanton>1999-06-25 18:42:14 (GMT)
committerstanton <stanton>1999-06-25 18:42:14 (GMT)
commit2db3c34abe16a84b24bd3512937595b49aadf51e (patch)
tree13d5dc887eee4352106a42bc0f8c3a2c29cb9ac0 /tests
parent9f6f5c519abd3e4640e5fed701205a348b0bf006 (diff)
downloadtcl-2db3c34abe16a84b24bd3512937595b49aadf51e.zip
tcl-2db3c34abe16a84b24bd3512937595b49aadf51e.tar.gz
tcl-2db3c34abe16a84b24bd3512937595b49aadf51e.tar.bz2
* tests/reg.test:
* generic/regexec.c: Fixed bugs in non-greedy quantifiers.
Diffstat (limited to 'tests')
-rw-r--r--tests/reg.test6
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/reg.test b/tests/reg.test
index 4b51248..503c3bc 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.4 1999/06/17 19:30:26 stanton Exp $
+# RCS: @(#) $Id: reg.test,v 1.5 1999/06/25 18:42:14 stanton Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -850,6 +850,10 @@ m 5 P ab?? ab a
m 6 P ab??c abc abc
m 7 PQ "ab{2,4}?" abbbb abb
m 8 PQ "ab{2,4}?c" abbbbc abbbbc
+m 9 - 3z* 123zzzz456 3zzzz
+m 10 P 3z*? 123zzzz456 3
+m 11 - z*4 123zzzz456 zzzz4
+m 12 P z*?4 123zzzz456 zzzz4