update tkimg 1.4.7

1 files changed, 90 insertions, 0 deletions

diff --git a/tkimg/tests/dted.test b/tkimg/tests/dted.test
new file mode 100755
index 0000000..b6dee93
--- /dev/null
+++ b/tkimg/tests/dted.test
@@ -0,0 +1,90 @@
+# This file is a Tcl script to test out DTED reading.
+# Note, that the DTED parser only supports reading.
+# 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
+package require img::dted
+
+imageInit
+
+namespace eval ::dted::test {
+    namespace import ::tcltest::*
+
+    set fmt  "dted"
+    set ext  "dt0"
+    set file "testimgs/img.$ext"
+
+    # Encoded image content.
+    source $file.base64
+
+    test dted-1.1 {} -setup {
+        catch {image delete i}
+    } -body {
+        image create photo i -file $file
+        set w [image width i]
+        set h [image height i]
+        set d [i data -format $fmt]
+        set l [list $w $h $d]
+    } -result {121 121 {}}
+
+    test dted-1.2 {} -setup {
+        catch {image delete i}
+    } -body {
+        image create photo i -data $imgdata
+        set w [image width i]
+        set h [image height i]
+        set d [i data -format $fmt]
+        set l [list $w $h $d]
+    } -cleanup {
+        image delete i
+    } -result {121 121 {}}
+
+    test dted-1.3 {} -setup {
+        catch {image delete i}
+    } -body {
+        image create photo i
+        i put $imgdata
+        set w [image width i]
+        set h [image height i]
+        set d [i data -format $fmt]
+        set l [list $w $h $d]
+    } -cleanup {
+        image delete i
+    } -result {121 121 {}}
+
+    test dted-1.4 {} -setup {
+        catch {image delete i}
+    } -body {
+        image create photo i
+        i put $imgdata -format $fmt
+        set w [image width i]
+        set h [image height i]
+        set d [i data -format $fmt]
+        set l [list $w $h $d]
+    } -cleanup {
+        image delete i
+    } -result {121 121 {}}
+
+
+    test dted-2.0 {Binary I/O with DTED files} -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 ::dted::test