diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-04-08 15:15:40 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-04-08 15:15:40 (GMT) |
| commit | d2ebbe8d0453b1830261e251e116ccec67a6479c (patch) | |
| tree | cb7cf35ca6a7d94b2d37084a2787526b1de32931 /tests | |
| parent | 84d7d75f97cf88a8414d4b9832487567cfaf2bd4 (diff) | |
| download | tcl-d2ebbe8d0453b1830261e251e116ccec67a6479c.zip tcl-d2ebbe8d0453b1830261e251e116ccec67a6479c.tar.gz tcl-d2ebbe8d0453b1830261e251e116ccec67a6479c.tar.bz2 | |
3610026 Stop segfault when regexp overflows color limits.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/regexp.test | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/regexp.test b/tests/regexp.test index 9b4c525..74fdc09 100644 --- a/tests/regexp.test +++ b/tests/regexp.test @@ -679,6 +679,17 @@ test regexp-22.4 {Bug 3606139} -setup { } -cleanup { rename a {} } -returnCodes 1 -result {couldn't compile regular expression pattern: nfa has too many states} +test regexp-22.5 {Bug 3610026} -setup { + set e {} + set cp 99 + while {$cp < 32864} { + append e [format %c [incr cp]] + } +} -body { + regexp -about $e +} -cleanup { + unset -nocomplain e cp +} -returnCodes error -match glob -result * # cleanup ::tcltest::cleanupTests |