Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Wait more carefully, since no wait is needed for Windows or linux. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | aqua_image_tests |
Files: | files | file ages | folders |
SHA3-256: |
ba19b2700f5f54472824d5c33ada1565 |
User & Date: | culler 2019-05-23 14:21:20.835 |
Context
2019-05-24
| ||
21:18 | Improve image testing for Aqua check-in: d326a1b3 user: culler tags: core-8-6-branch | |
2019-05-23
| ||
14:21 | Wait more carefully, since no wait is needed for Windows or linux. Closed-Leaf check-in: ba19b270 user: culler tags: aqua_image_tests | |
2019-05-21
| ||
19:49 | Use vwait with a timeout to wait for test image display, as suggested by dkf. check-in: 36f8fe9d user: culler tags: aqua_image_tests | |
Changes
Changes to tests/canvImg.test.
︙ | ︙ | |||
162 163 164 165 166 167 168 | image create test foo -variable x image create test foo2 -variable y foo2 changed 0 0 0 0 80 60 .c create image 50 100 -image foo -tags i1 -anchor nw update set x {} set y {} | | > > > | > | 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 | image create test foo -variable x image create test foo2 -variable y foo2 changed 0 0 0 0 80 60 .c create image 50 100 -image foo -tags i1 -anchor nw update set x {} set y {} set timer [after 300 {lappend y "timeout"}] .c itemconfigure i1 -image foo2 update idletasks update # On MacOS we need to wait for the test image display procedure to run. while {"timeout" ni $y && [lindex $y end 1] ne "display"} { vwait y } after cancel timer list $x $y [.c bbox i1] } -cleanup { .c delete all image delete foo image delete foo2 } -result {{{foo free}} {{foo2 get} {foo2 display 0 0 80 60}} {50 100 130 160}} |
︙ | ︙ |
Changes to tests/image.test.
︙ | ︙ | |||
58 59 60 61 62 63 64 | imageCleanup } -body { image create test myimage -variable x .c create image 100 50 -image myimage .c create image 100 150 -image myimage update set x {} | | > > > | > | 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 | imageCleanup } -body { image create test myimage -variable x .c create image 100 50 -image myimage .c create image 100 150 -image myimage update set x {} set timer [after 500 {lappend x "timeout"}] image create test myimage -variable x update idletasks update # On MacOS we need to wait for the test image display procedure to run. while {"timeout" ni $x && [lindex $x end 1] ne "display"} { vwait x } after cancel timer return $x } -cleanup { imageCleanup } -result {{myimage free} {myimage free} {myimage delete} {myimage get} {myimage get} {myimage display 0 0 30 15} {myimage display 0 0 30 15}} test image-1.8 {Tk_ImageCmd procedure, "create" option} -constraints { testImageType |
︙ | ︙ | |||
359 360 361 362 363 364 365 | imageCleanup update } -body { image create test foo -variable x .c create image 50 50 -image foo update set x {} | | > > > | > | 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 | imageCleanup update } -body { image create test foo -variable x .c create image 50 50 -image foo update set x {} set timer [after 500 {lappend x "timeout"}] foo changed 5 6 7 8 30 15 update idletasks update # On MacOS we need to wait for the test image display procedure to run. while {"timeout" ni $x && [lindex $x end 1] ne "display"} { vwait x } after cancel timer return $x } -cleanup { .c delete all imageCleanup } -result $result_9_1 if {[tk windowingsystem] == "aqua" && $tcl_platform(osVersion) > 18} { |
︙ | ︙ |