1# This file is a Tcl script to test out TGA reading and writing.
2# It is organized in the standard fashion for Tcl tests.
3#
4
5puts "img::tga [package require img::tga]"
6
7set tgadata \
8{AAAKAAAAAAAAAAAAUgAMABgg0d/b3wDf29+JAAAAiP///wAAAACIAAD/AAAAAIgA/wAAAAAA
9iP8AAAAAAACI//8AAAAAAIj/AP8AAAAAiAD//wEAAADf298A39vfiQAAAIj///8AAAAAiAAA
10/wAAAACIAP8AAAAAAIj/AAAAAAAAiP//AAAAAACI/wD/AAAAAIgA//8BAAAA39vfAN/b34kA
11AACI////AAAAAIgAAP8AAAAAiAD/AAAAAACI/wAAAAAAAIj//wAAAAAAiP8A/wAAAACIAP//
12AQAAAN/b3wDf29+JAAAAiP///wAAAACIAAD/AAAAAIgA/wAAAAAAiP8AAAAAAACI//8AAAAA
13AIj/AP8AAAAAiAD//wEAAADf298A39vfiQAAAIj///8AAAAAiAAA/wAAAACIAP8AAAAAAIj/
14AAAAAAAAiP//AAAAAACI/wD/AAAAAIgA//8BAAAA39vfAN/b34kAAACI////AAAAAIgAAP8A
15AAAAiAD/AAAAAACI/wAAAAAAAIj//wAAAAAAiP8A/wAAAACIAP//AQAAAN/b3wDf29+JAAAA
16iP///wAAAACIAAD/AAAAAIgA/wAAAAAAiP8AAAAAAACI//8AAAAAAIj/AP8AAAAAiAD//wEA
17AADf298A39vfiQAAAIj///8AAAAAiAAA/wAAAACIAP8AAAAAAIj/AAAAAAAAiP//AAAAAACI
18/wD/AAAAAIgA//8BAAAA39vfAN/b34kAAACI////AAAAAIgAAP8AAAAAiAD/AAAAAACI/wAA
19AAAAAIj//wAAAAAAiP8A/wAAAACIAP//AQAAAN/b3wDf29/PAAAAAN/b39Hf298=}
20
21
22test tga-1.1 {} {
23    catch {image delete i}
24    image create photo i -file [file join $tcltest::testsDirectory hori.tga]
25    i data -format tga
26} $tgadata
27test tga-1.2 {} {
28    catch {image delete i}
29    image create photo i -data $tgadata
30    set data [i data -format tga]
31} $tgadata
32test tga-1.3 {} {
33    i blank
34    i put $tgadata
35    set data [i data -format tga]
36} $tgadata
37test tga-1.4 {} {
38    i blank
39    i put $tgadata -format tga
40    set data [i data -format tga]
41} $tgadata
42if {[info tclversion] < 8.0} {
43    return
44}
45
46test tga-2.0 {Binary I/O with TGA images} {
47    i blank
48    set f [open [file join $tcltest::testsDirectory hori.tga] r]
49    fconfigure $f -translation binary
50    set return [catch {i put [read $f]} msg]
51    close $f
52    lappend return $msg
53} {0 {}}
54