summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2015-02-15 19:20:37 (GMT)
committerfvogel <fvogelnew1@free.fr>2015-02-15 19:20:37 (GMT)
commit145b3ef2cb9b7fa90d8e857e7bafb4efc64662a6 (patch)
treec827271abc05117486ec91d0b8b321fd2859b560
parent4c119bf2243305dc2c811c23e17276450ce2f33e (diff)
parentfae1b687220c1f7bf9ac63856a5cb354153ebc13 (diff)
downloadtk-145b3ef2cb9b7fa90d8e857e7bafb4efc64662a6.zip
tk-145b3ef2cb9b7fa90d8e857e7bafb4efc64662a6.tar.gz
tk-145b3ef2cb9b7fa90d8e857e7bafb4efc64662a6.tar.bz2
Fixed failing textImage-3.2 test - See bug [1591493fff]
-rw-r--r--tests/textImage.test11
1 files changed, 6 insertions, 5 deletions
diff --git a/tests/textImage.test b/tests/textImage.test
index 24246cc..4bb190c 100644
--- a/tests/textImage.test
+++ b/tests/textImage.test
@@ -316,8 +316,7 @@ test textImage-3.1 {image change propagation} -setup {
image delete vary
} -result {{base:0 0 5 5} {10:0 0 10 10} {20:0 0 20 20} {40:0 0 40 40}}
-# Fails in some environments (both in Linux and winXP)
-test textImage-3.2 {delayed image management} -setup {
+test textImage-3.2 {delayed image management, see also bug 1591493} -setup {
destroy .t
set result ""
} -body {
@@ -329,14 +328,16 @@ test textImage-3.2 {delayed image management} -setup {
pack .t
.t image create end -name test
update
- 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]
+ foreach {x2 y2 w2 h2} [.t bbox test] {}
+ lappend result [list [expr {$x1==$x2}] [expr {$w2>0}] [expr {$h2>0}]]
} -cleanup {
destroy .t
image delete small
-} -result {{} {0 0 5 5}}
+} -result {{0 0 0} {1 1 1}}
# some temporary random tests