diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2019-03-20 17:30:33 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2019-03-20 17:30:33 (GMT) |
| commit | 54d971086f3a99dd7c9552fbe07f589f43bf439c (patch) | |
| tree | 53969f74e5aef27e572e5db2af98a54b15e0a6a4 /tkimg/tests/tiff.test | |
| parent | cfef685ad45bc8f98a2d59fba75ba9bc6e06496d (diff) | |
| download | blt-54d971086f3a99dd7c9552fbe07f589f43bf439c.zip blt-54d971086f3a99dd7c9552fbe07f589f43bf439c.tar.gz blt-54d971086f3a99dd7c9552fbe07f589f43bf439c.tar.bz2 | |
upgrade tkimg 1.4.9
Diffstat (limited to 'tkimg/tests/tiff.test')
| -rwxr-xr-x | tkimg/tests/tiff.test | 78 |
1 files changed, 78 insertions, 0 deletions
diff --git a/tkimg/tests/tiff.test b/tkimg/tests/tiff.test new file mode 100755 index 0000000..867bd26 --- /dev/null +++ b/tkimg/tests/tiff.test @@ -0,0 +1,78 @@ +# This file is a Tcl script to test out TIFF reading and writing.
+# It is organized in the standard fashion for Tcl tests.
+
+package require Tk
+
+package require tcltest
+tcltest::configure {*}$argv
+source [file join [file dirname [info script]] constraints.tcl]
+
+package require Img
+
+imageInit
+
+namespace eval ::tiff::test {
+ namespace import ::tcltest::*
+
+ set fmt "tiff"
+ set ext "tif"
+ set file "testimgs/img.$ext"
+
+ # Encoded image content.
+ source $file.base64
+
+ test tiff-1.1 {} -setup {
+ catch {image delete i}
+ } -body {
+ image create photo i -file $file
+ i data -format $fmt
+ } -cleanup {
+ image delete i
+ } -result $imgdata
+
+ test tiff-1.2 {} -setup {
+ catch {image delete i}
+ } -body {
+ image create photo i -data $imgdata
+ i data -format $fmt
+ } -cleanup {
+ image delete i
+ } -result $imgdata
+
+ test tiff-1.3 {} -setup {
+ catch {image delete i}
+ } -body {
+ image create photo i
+ i put $imgdata
+ i data -format $fmt
+ } -cleanup {
+ image delete i
+ } -result $imgdata
+
+ test tiff-1.4 {} -setup {
+ catch {image delete i}
+ } -body {
+ image create photo i
+ i put $imgdata -format $fmt
+ i data -format $fmt
+ } -cleanup {
+ image delete i
+ } -result $imgdata
+
+
+ test tiff-2.0 {Binary I/O with TIFF images} -setup {
+ catch {image delete i}
+ } -body {
+ image create photo i
+ set f [open $file r]
+ fconfigure $f -translation binary
+ set return [catch {i put [read $f]} msg]
+ close $f
+ lappend return $msg
+ } -cleanup {
+ image delete i
+ } -result {0 {}}
+}
+
+imageFinish
+namespace delete ::tiff::test
|