diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-01-03 21:51:01 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-01-03 21:51:01 (GMT) |
commit | a780057cc1b51dd3a557549c3cf2431f09136c0d (patch) | |
tree | 717f78052c55596449b27743171d7e170c4d39a0 /tkimg/tga/tests | |
parent | 7749430b9352c1eaf5dca7d8a89a6d35f565ef24 (diff) | |
download | blt-a780057cc1b51dd3a557549c3cf2431f09136c0d.zip blt-a780057cc1b51dd3a557549c3cf2431f09136c0d.tar.gz blt-a780057cc1b51dd3a557549c3cf2431f09136c0d.tar.bz2 |
upgrade tkimg to 1.4.6
Diffstat (limited to 'tkimg/tga/tests')
-rw-r--r-- | tkimg/tga/tests/all.tcl | 24 | ||||
-rw-r--r-- | tkimg/tga/tests/hori.tga | bin | 641 -> 0 bytes | |||
-rw-r--r-- | tkimg/tga/tests/tga.test | 53 |
3 files changed, 0 insertions, 77 deletions
diff --git a/tkimg/tga/tests/all.tcl b/tkimg/tga/tests/all.tcl deleted file mode 100644 index 672eef7..0000000 --- a/tkimg/tga/tests/all.tcl +++ /dev/null @@ -1,24 +0,0 @@ -# all.tcl -- -*- tcl -*- -# -# Import common functionality, then run the tests in this directory. -# -# Copyright (c) 2002 Andreas Kupries <andreas_kupries@users.sourceforge.net> -# All rights reserved. -# -# RCS: @(#) $Id: all.tcl,v 1.1.1.1 2016/01/25 21:20:47 joye Exp $ - -set _pwd [pwd] -cd [file dirname [file join [pwd] [info script]]] -set _here [pwd] -cd $_pwd -source [file join [file dirname [file dirname $_here]] tests all.tcl] -unset _pwd _here - -set ::tcltest::testSingleFile false -set ::tcltest::testsDirectory [file dirname [info script]] - -# We need to ensure that the testsDirectory is absolute -::tcltest::normalizePath ::tcltest::testsDirectory - -run_tests -exit diff --git a/tkimg/tga/tests/hori.tga b/tkimg/tga/tests/hori.tga Binary files differdeleted file mode 100644 index 6213cf9..0000000 --- a/tkimg/tga/tests/hori.tga +++ /dev/null diff --git a/tkimg/tga/tests/tga.test b/tkimg/tga/tests/tga.test deleted file mode 100644 index 9cc676f..0000000 --- a/tkimg/tga/tests/tga.test +++ /dev/null @@ -1,53 +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. -# - -puts "img::tga [package require img::tga]" - -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 [file join $tcltest::testsDirectory 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 [file join $tcltest::testsDirectory hori.tga] r] - fconfigure $f -translation binary - set return [catch {i put [read $f]} msg] - close $f - lappend return $msg -} {0 {}} |