Import Tk 8.6.8

tests/imgPNG.test

@@ -1103,6 +1103,17 @@ test imgPNG-2.2 {reading a good image with multiple IDATs} -setup {
 } -cleanup {
     image delete $i
 } -result 223x212
+
+test imgPNG-3.1 {reading image with unknown ancillary chunk - bug [1c659ef0f1]} -setup {
+    set fileName [file join [file dirname [info script]] iDOT.png]
+} -body {
+    # the image contains an unknown chunk iDOT
+    # since the name of this chunk starts with a lowercase letter,
+    # it's an ancillary chunk that shall not trigger an error
+    catch {set i [image create photo -file $fileName]}
+} -cleanup {
+    image delete $i
+} -result {0}
 
 }
 namespace delete png