diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-01-08 21:02:55 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-01-08 21:02:55 (GMT) |
commit | dbbb38af9cefef9e9e1a03c97945ee59063aa782 (patch) | |
tree | deefc089aa3327ebd4daa943b47c0d8f34af6bc7 /tkimg/tests/tga.test | |
parent | 54ae0375ebd9242bdf2eeceacee4c5b2de914bc1 (diff) | |
download | blt-dbbb38af9cefef9e9e1a03c97945ee59063aa782.zip blt-dbbb38af9cefef9e9e1a03c97945ee59063aa782.tar.gz blt-dbbb38af9cefef9e9e1a03c97945ee59063aa782.tar.bz2 |
update tkimg 1.4.7
Diffstat (limited to 'tkimg/tests/tga.test')
-rwxr-xr-x | tkimg/tests/tga.test | 55 |
1 files changed, 0 insertions, 55 deletions
diff --git a/tkimg/tests/tga.test b/tkimg/tests/tga.test deleted file mode 100755 index 46a0e1f..0000000 --- a/tkimg/tests/tga.test +++ /dev/null @@ -1,55 +0,0 @@ -# This file is a Tcl script to test out TGA reading and writing. -# It is organized in the standard fashion for Tcl tests. -# - -if {[string compare test [info procs test]] == 1} { - source defs -} - -set tgadata \ -{AAAKAAAAAAAAAAAAUgAMABgg0d/b3wDf29+JAAAAiP///wAAAACIAAD/AAAAAIgA/wAAAAAA -iP8AAAAAAACI//8AAAAAAIj/AP8AAAAAiAD//wEAAADf298A39vfiQAAAIj///8AAAAAiAAA -/wAAAACIAP8AAAAAAIj/AAAAAAAAiP//AAAAAACI/wD/AAAAAIgA//8BAAAA39vfAN/b34kA -AACI////AAAAAIgAAP8AAAAAiAD/AAAAAACI/wAAAAAAAIj//wAAAAAAiP8A/wAAAACIAP// -AQAAAN/b3wDf29+JAAAAiP///wAAAACIAAD/AAAAAIgA/wAAAAAAiP8AAAAAAACI//8AAAAA -AIj/AP8AAAAAiAD//wEAAADf298A39vfiQAAAIj///8AAAAAiAAA/wAAAACIAP8AAAAAAIj/ -AAAAAAAAiP//AAAAAACI/wD/AAAAAIgA//8BAAAA39vfAN/b34kAAACI////AAAAAIgAAP8A -AAAAiAD/AAAAAACI/wAAAAAAAIj//wAAAAAAiP8A/wAAAACIAP//AQAAAN/b3wDf29+JAAAA -iP///wAAAACIAAD/AAAAAIgA/wAAAAAAiP8AAAAAAACI//8AAAAAAIj/AP8AAAAAiAD//wEA -AADf298A39vfiQAAAIj///8AAAAAiAAA/wAAAACIAP8AAAAAAIj/AAAAAAAAiP//AAAAAACI -/wD/AAAAAIgA//8BAAAA39vfAN/b34kAAACI////AAAAAIgAAP8AAAAAiAD/AAAAAACI/wAA -AAAAAIj//wAAAAAAiP8A/wAAAACIAP//AQAAAN/b3wDf29/PAAAAAN/b39Hf298=} - - -test tga-1.1 {} { - catch {image delete i} - image create photo i -file hori.tga - i data -format tga -} $tgadata -test tga-1.2 {} { - catch {image delete i} - image create photo i -data $tgadata - set data [i data -format tga] -} $tgadata -test tga-1.3 {} { - i blank - i put $tgadata - set data [i data -format tga] -} $tgadata -test tga-1.4 {} { - i blank - i put $tgadata -format tga - set data [i data -format tga] -} $tgadata -if {[info tclversion] < 8.0} { - return -} - -test tga-2.0 {Binary I/O with TGA images} { - i blank - set f [open hori.tga r] - fconfigure $f -translation binary - set return [catch {i put [read $f]} msg] - close $f - lappend return $msg -} {0 {}} |