summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2010-01-19 22:02:42 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2010-01-19 22:02:42 (GMT)
commit545af346b6b7f4d2e3c1bfa931e01202c6c7808d (patch)
tree313f16de04d1f869c193750347eb6047316cb552 /tests
parente06c38d5e7dffdd9153afbd4c7c976de5167ca68 (diff)
downloadtk-545af346b6b7f4d2e3c1bfa931e01202c6c7808d.zip
tk-545af346b6b7f4d2e3c1bfa931e01202c6c7808d.tar.gz
tk-545af346b6b7f4d2e3c1bfa931e01202c6c7808d.tar.bz2
[Bug 2931374]: Stop overflow of working buffer during construction of long
tag expressions.
Diffstat (limited to 'tests')
-rw-r--r--tests/canvas.test11
1 files changed, 10 insertions, 1 deletions
diff --git a/tests/canvas.test b/tests/canvas.test
index 489ba27..f6a85fb 100644
--- a/tests/canvas.test
+++ b/tests/canvas.test
@@ -6,7 +6,7 @@
# Copyright (c) 1998-2000 Ajuba Solutions.
# All rights reserved.
#
-# RCS: @(#) $Id: canvas.test,v 1.23 2004/12/07 21:22:19 dgp Exp $
+# RCS: @(#) $Id: canvas.test,v 1.23.4.1 2010/01/19 22:02:43 dkf Exp $
package require tcltest 2.1
eval tcltest::configure $argv
@@ -367,6 +367,15 @@ test canvas-10.12 {multple events bound to same tag expr} -setup {
.c bind {a && b} <Enter> {puts Enter}
.c bind {a && b} <Leave> {puts Leave}
} -result {}
+test canvas-10.13 {more long tag searches; Bug 2931374} -setup {
+ catch {destroy .c}
+ canvas .c
+} -body {
+ .c find withtag {(A&&B&&C&&D)&&area&&!text}
+ # memory errors on failure
+} -cleanup {
+ destroy .c
+} -result {}
test canvas-11.1 {canvas poly fill check, bug 5783} -setup {
destroy .c