summaryrefslogtreecommitdiffstats
path: root/tests/regexp.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-04-08 20:07:07 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-04-08 20:07:07 (GMT)
commite7f6b7f4fb45169bccbd300eb6931712d90aeae4 (patch)
tree95837b1887eda849b2873c00caaf5337bbfc18dd /tests/regexp.test
parente51453c41298f99bcf7ea71f57c69463d5b904a9 (diff)
parentb33c30f98bfe09a38ef7a2106610e2d0d0605a45 (diff)
downloadtcl-e7f6b7f4fb45169bccbd300eb6931712d90aeae4.zip
tcl-e7f6b7f4fb45169bccbd300eb6931712d90aeae4.tar.gz
tcl-e7f6b7f4fb45169bccbd300eb6931712d90aeae4.tar.bz2
3610026 Stop crash when the number of "colors" in a regular expression
overflows a short int. Thanks to Heikki Linnakangas for the report and the patch.
Diffstat (limited to 'tests/regexp.test')
-rw-r--r--tests/regexp.test11
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/regexp.test b/tests/regexp.test
index 2d2814a..1c30001 100644
--- a/tests/regexp.test
+++ b/tests/regexp.test
@@ -865,6 +865,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 {*too many colors*}
test regexp-23.1 {regexp -all and -line} {
set string ""