summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2015-10-21 13:35:48 (GMT)
committerdgp <dgp@users.sourceforge.net>2015-10-21 13:35:48 (GMT)
commit16ccc54387b39505723e3413eb4d755ea7cdb3ff (patch)
tree7339a003ab56cd793a40da29f03f7f18a52a80bb
parentbc85f89c10afaf5368f4c41a235e11955886a1a3 (diff)
downloadtcl-16ccc54387b39505723e3413eb4d755ea7cdb3ff.zip
tcl-16ccc54387b39505723e3413eb4d755ea7cdb3ff.tar.gz
tcl-16ccc54387b39505723e3413eb4d755ea7cdb3ff.tar.bz2
Adapted new tests contributed from Tom Lane @postgres.tgl_pg_re
-rw-r--r--tests/reg.test28
1 files changed, 28 insertions, 0 deletions
diff --git a/tests/reg.test b/tests/reg.test
index b259ce5..6cd2eb3 100644
--- a/tests/reg.test
+++ b/tests/reg.test
@@ -1093,6 +1093,34 @@ test reg-33.21 {constraint fixes} {
test reg-33.22 {constraint fixes} {
regexp {(^(?!aa)(?!bb)(?!cc))+} {dd x}
} 1
+
+test reg-33.23 {} {
+ regexp {abcd(\m)+xyz} x
+} 0
+test reg-33.24 {} {
+ regexp {abcd(\m)+xyz} a
+} 0
+test reg-33.25 {} {
+ regexp {^abcd*(((((^(a c(e?d)a+|)+|)+|)+|)+|a)+|)} x
+} 0
+test reg-33.26 {} {
+ regexp {a^(^)bcd*xy(((((($a+|)+|)+|)+$|)+|)+|)^$} x
+} 0
+test reg-33.27 {} {
+ regexp {xyz(\Y\Y)+} x
+} 0
+test reg-33.28 {} {
+ regexp {x|(?:\M)+} x
+} 1
+test reg-33.29 {} {
+ # This is near the limits of the RE engine
+ regexp [string repeat x*y*z* 480] x
+} 1
+
+test reg-33.30 {Bug 1080042} {
+ regexp {(\Y)+} foo
+} 1
+
# cleanup
::tcltest::cleanupTests