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