Add test imgPhoto-19.1 demonstrating bug [1576528] for the GIF case, and imgPhoto-19.2 (which shows a workaround and passes).

1 files changed, 16 insertions, 0 deletions

diff --git a/tests/imgPhoto.test b/tests/imgPhoto.test
index 1d3b6e5..54294b9 100644
--- a/tests/imgPhoto.test
+++ b/tests/imgPhoto.test
@@ -1425,6 +1425,22 @@ test imgPhoto-18.12 {Valid GIF (file)} -setup {
     catch {image delete gif1}
 } -result gif1
 
+test imgPhoto-19.1 {Read GIF file with -from option - Bug [1576528]} -constraints hasEarthPhoto -body {
+    image create photo gif1
+    gif1 read $earthPhotoFile -from 152 62 185 97
+    lindex [lindex [gif1 data] 0] 0
+} -cleanup {
+    catch {image delete gif1}
+} -result {#d8c8b8}
+test imgPhoto-19.2 {Read GIF file, copy with -from option} -constraints hasEarthPhoto -body {
+    image create photo gif1 -file $earthPhotoFile
+    image create photo gif2
+    gif2 copy gif1 -from 152 62 185 97
+    lindex [lindex [gif2 data] 0] 0
+} -cleanup {
+    catch {image delete gif1 ; image delete gif2}
+} -result {#d8c8b8}
+
 catch {rename foreachPixel {}}
 catch {rename checkImgTrans {}}
 catch {rename checkImgTransLoop {}}