diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-06-09 17:36:51 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-06-09 17:36:51 (GMT) |
| commit | dd29f2b0bbbf61c0937023c302b62112098933b3 (patch) | |
| tree | 48509da871ca2820474aa73325f6f7165df02902 /tests/imgPhoto.test | |
| parent | d454776e552a10ca739f2608e45607d72f9cda2e (diff) | |
| parent | 13ad83e207e848df4017b03f3f51087b16c2b079 (diff) | |
| download | tk-dd29f2b0bbbf61c0937023c302b62112098933b3.zip tk-dd29f2b0bbbf61c0937023c302b62112098933b3.tar.gz tk-dd29f2b0bbbf61c0937023c302b62112098933b3.tar.bz2 | |
Fix [a0241c0e25]: photo image copy command can unexpectedly hang for 20+ seconds.
Diffstat (limited to 'tests/imgPhoto.test')
| -rw-r--r-- | tests/imgPhoto.test | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/imgPhoto.test b/tests/imgPhoto.test index 5a88a29..15a749c 100644 --- a/tests/imgPhoto.test +++ b/tests/imgPhoto.test @@ -1604,6 +1604,17 @@ test imgPhoto-12.4 {Tk_ImgPhotoPutZoomedBlock, empty image} -setup { } -cleanup { imageCleanup } -result {0 0} +test imgPhoto-12.5 {Tk_ImgPhotoPutZoomedBlock, copy from area outside the image, bug [a0241c0e25]} -setup { + imageCleanup +} -body { + image create photo photo1 -width 20 -height 20 + image create photo photo2 -width 9 -height 10 + # next line used to loop for a very long time; if the bug is present + # the CI runner will time out, leading to test suite failure + photo2 copy photo1 -to 0 5 3 8 -from 21 0 +} -cleanup { + imageCleanup +} -returnCodes error -result {coordinates for -from option extend outside source image} test imgPhoto-13.1 {check separation of images in different interpreters} -setup { imageCleanup |