diff options
| author | fvogel <fvogelnew1@free.fr> | 2015-02-15 19:16:21 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2015-02-15 19:16:21 (GMT) |
| commit | fae1b687220c1f7bf9ac63856a5cb354153ebc13 (patch) | |
| tree | c1e09ba56cad3ded46115926e70fe4feee8cab2f /tests | |
| parent | 2d63ea99a19f290fc631561cb060fd7dd7a719d8 (diff) | |
| download | tk-fae1b687220c1f7bf9ac63856a5cb354153ebc13.zip tk-fae1b687220c1f7bf9ac63856a5cb354153ebc13.tar.gz tk-fae1b687220c1f7bf9ac63856a5cb354153ebc13.tar.bz2 | |
Fixed failing textImage-3.2 test - See bug [1591493fff]
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/textImage.test | 10 |
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 |