diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-02-14 21:04:25 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-02-14 21:04:25 (GMT) |
| commit | 46df7f7566778f6e653d25f063fc6a57649e36a6 (patch) | |
| tree | 6ea04402d2c4db05e12afb225fecbbf5ee44a090 /tests/regexp.test | |
| parent | 00e736695a8c441fd7613f99a6a67fc101302477 (diff) | |
| download | tcl-46df7f7566778f6e653d25f063fc6a57649e36a6.zip tcl-46df7f7566778f6e653d25f063fc6a57649e36a6.tar.gz tcl-46df7f7566778f6e653d25f063fc6a57649e36a6.tar.bz2 | |
New branch bug-3604074 with improved patch to correct fixempties() failurebug_3604074
to converge.
Diffstat (limited to 'tests/regexp.test')
| -rw-r--r-- | tests/regexp.test | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/regexp.test b/tests/regexp.test index 70ee47e..a7b81b2 100644 --- a/tests/regexp.test +++ b/tests/regexp.test @@ -630,7 +630,10 @@ test regexp-21.13 {multiple matches handle newlines} { test regexp-22.1 {Bug 1810038} { regexp ($|^X)* {} } 1 - +test regexp-22.2 {Bug 3604074} { + # This will hang in interps where the bug is not fixed + regexp ((((((((a)*)*)*)*)*)*)*)* a +} 1 # cleanup ::tcltest::cleanupTests |