summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/textImage.test10
1 files changed, 6 insertions, 4 deletions
diff --git a/tests/textImage.test b/tests/textImage.test
index bb5909c..47ea298 100644
--- a/tests/textImage.test
+++ b/tests/textImage.test
@@ -242,7 +242,7 @@ test textImage-3.1 {image change propagation} {
set result
} {{base:0 0 5 5} {10:0 0 10 10} {20:0 0 20 20} {40:0 0 40 40}}
-test textImage-3.2 {delayed image management} {
+test textImage-3.2 {delayed image management, see also bug 1591493} {
catch {
image create photo small -width 5 -height 5
small put red -to 0 0 4 4
@@ -253,11 +253,13 @@ test textImage-3.2 {delayed image management} {
.t image create end -name test
update
set result ""
- lappend result [.t bbox test]
+ foreach {x1 y1 w1 h1} [.t bbox test] {}
+ lappend result [list $x1 $w1 $h1]
.t image configure test -image small -align top
update
- lappend result [.t bbox test]
-} {{} {0 0 5 5}}
+ foreach {x2 y2 w2 h2} [.t bbox test] {}
+ lappend result [list [expr {$x1==$x2}] [expr {$w2>0}] [expr {$h2>0}]]
+} {{0 0 0} {1 1 1}}
# some temporary random tests