diff options
| author | dgp <dgp@users.sourceforge.net> | 2015-10-19 17:42:43 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2015-10-19 17:42:43 (GMT) |
| commit | d5029136c19cf63918181738530845991a2be388 (patch) | |
| tree | 5ac5633bb80171473d9ef18687b9800b3dadc464 /tests | |
| parent | dfb834e3952d92bad9447ddc06161797e0878afc (diff) | |
| download | tcl-d5029136c19cf63918181738530845991a2be388.zip tcl-d5029136c19cf63918181738530845991a2be388.tar.gz tcl-d5029136c19cf63918181738530845991a2be388.tar.bz2 | |
Adaptation of the patch re-fixconstraintloops.patch from
http://www.postgresql.org/message-id/19394.1444865029@sss.pgh.pa.us
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/reg.test | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/tests/reg.test b/tests/reg.test index 0ebfa11..b259ce5 100644 --- a/tests/reg.test +++ b/tests/reg.test @@ -1068,6 +1068,31 @@ test reg-33.13 {Bug 1810264 - infinite loop} { test reg-33.14 {Bug 1810264 - super-expensive expression} nonPortable { regexp {(x{200}){200}$y} {x} } 0 + +test reg-33.15 {constraint fixes} { + regexp {(^)+^} x +} 1 +test reg-33.16 {constraint fixes} { + regexp {($^)+} x +} 0 +test reg-33.17 {constraint fixes} { + regexp {(^$)*} x +} 1 +test reg-33.18 {constraint fixes} { + regexp {(^(?!aa))+} {aa bb cc} +} 0 +test reg-33.19 {constraint fixes} { + regexp {(^(?!aa)(?!bb)(?!cc))+} {aa x} +} 0 +test reg-33.20 {constraint fixes} { + regexp {(^(?!aa)(?!bb)(?!cc))+} {bb x} +} 0 +test reg-33.21 {constraint fixes} { + regexp {(^(?!aa)(?!bb)(?!cc))+} {cc x} +} 0 +test reg-33.22 {constraint fixes} { + regexp {(^(?!aa)(?!bb)(?!cc))+} {dd x} +} 1 # cleanup ::tcltest::cleanupTests |