diff options
author | fvogel <fvogelnew1@free.fr> | 2017-11-21 20:35:20 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2017-11-21 20:35:20 (GMT) |
commit | ae3997b382bb6074b751bdec7da4c47bfd78e648 (patch) | |
tree | b1e440e7acdd845a042c9752320212fd5149ab45 /tests | |
parent | e93b46202bb4959b9946e8385832de8a939cdcef (diff) | |
download | tk-ae3997b382bb6074b751bdec7da4c47bfd78e648.zip tk-ae3997b382bb6074b751bdec7da4c47bfd78e648.tar.gz tk-ae3997b382bb6074b751bdec7da4c47bfd78e648.tar.bz2 |
Add test imgPNG-3.1 demonstrating bug [1c659ef0f1]
Diffstat (limited to 'tests')
-rw-r--r-- | tests/iDOT.png | bin | 0 -> 6279 bytes | |||
-rw-r--r-- | tests/imgPNG.test | 11 |
2 files changed, 11 insertions, 0 deletions
diff --git a/tests/iDOT.png b/tests/iDOT.png Binary files differnew file mode 100644 index 0000000..e8cd024 --- /dev/null +++ b/tests/iDOT.png diff --git a/tests/imgPNG.test b/tests/imgPNG.test index 0757411..335ac39 100644 --- a/tests/imgPNG.test +++ b/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 {image create photo -file $fileName} +} -cleanup { + catch {image delete $im} +} -result {0} } namespace delete png |