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 | SQL 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 |
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 169 170 171 172 173 174 175 176 177 178 179 |
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 3000 {set y "timed out"}]
.c itemconfigure i1 -image foo2
update idletasks
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}}
|
| > > > | > |
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
65
66
67
68
69
70
71
72
73
74
75
...
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
|
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 3000 {set x "timed out"}]
image create test myimage -variable x
update idletasks
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
................................................................................
imageCleanup
update
} -body {
image create test foo -variable x
.c create image 50 50 -image foo
update
set x {}
set timer [after 3000 {set x "timed out"}]
foo changed 5 6 7 8 30 15
update idletasks
vwait x
after cancel timer
return $x
} -cleanup {
.c delete all
imageCleanup
} -result $result_9_1
if {[tk windowingsystem] == "aqua" && $tcl_platform(osVersion) > 18} {
|
|
>
>
>
|
>
|
>
>
>
|
>
|
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
...
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
|
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
................................................................................
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} {
|