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 | 2eb71ac54f2a90bc58021dab1e39d72d8bfc58e2 (patch) | |
| tree | 6ea04402d2c4db05e12afb225fecbbf5ee44a090 /tests/regexp.test | |
| parent | e6b2efbad82fa985d55dee4fd5baf92260922f2b (diff) | |
| download | tcl-2eb71ac54f2a90bc58021dab1e39d72d8bfc58e2.zip tcl-2eb71ac54f2a90bc58021dab1e39d72d8bfc58e2.tar.gz tcl-2eb71ac54f2a90bc58021dab1e39d72d8bfc58e2.tar.bz2 | |
New branch bug-3604074 with improved patch to correct fixempties() failure
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 |