summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-04-08 15:15:40 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-04-08 15:15:40 (GMT)
commitd2ebbe8d0453b1830261e251e116ccec67a6479c (patch)
treecb7cf35ca6a7d94b2d37084a2787526b1de32931 /tests
parent84d7d75f97cf88a8414d4b9832487567cfaf2bd4 (diff)
downloadtcl-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.test11
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