summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-02-15 15:32:30 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-02-15 15:32:30 (GMT)
commit02a26d7bcd80d7c7f7a2733ebecdbfb89d1212c5 (patch)
tree722bb5b087351a5a88a8ddd7a8872c13aeb97257 /tests
parente1bfb4b3a06ef2a5199b7587116f35242d185e98 (diff)
parentd14317916c9328450a7afd6cfa2168a6c5a7224f (diff)
downloadtcl-02a26d7bcd80d7c7f7a2733ebecdbfb89d1212c5.zip
tcl-02a26d7bcd80d7c7f7a2733ebecdbfb89d1212c5.tar.gz
tcl-02a26d7bcd80d7c7f7a2733ebecdbfb89d1212c5.tar.bz2
3604074 Fix regexp optimization to stop hanging on the expression
((((((((a)*)*)*)*)*)*)*)* . Thanks to Bjørn Grathwohl for discovery.
Diffstat (limited to 'tests')
-rw-r--r--tests/regexp.test4
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/regexp.test b/tests/regexp.test
index 7cafd1b..21f5720 100644
--- a/tests/regexp.test
+++ b/tests/regexp.test
@@ -819,6 +819,10 @@ test regexp-22.1 {Bug 1810038} {
test regexp-22.2 {regexp compile and backrefs, Bug 1857126} {
regexp -- {([bc])\1} bb
} 1
+test regexp-22.3 {Bug 3604074} {
+ # This will hang in interps where the bug is not fixed
+ regexp ((((((((a)*)*)*)*)*)*)*)* a
+} 1
test regexp-23.1 {regexp -all and -line} {
set string ""