diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-03-20 17:29:30 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-03-20 17:29:30 (GMT) |
commit | cfef685ad45bc8f98a2d59fba75ba9bc6e06496d (patch) | |
tree | 066005da150adf4bf7892796647154a49d5ea23c /tkimg/tests/xbm.test | |
parent | c31bd7553b6efd2407fc521dc14aec1936e3cbf0 (diff) | |
download | blt-cfef685ad45bc8f98a2d59fba75ba9bc6e06496d.zip blt-cfef685ad45bc8f98a2d59fba75ba9bc6e06496d.tar.gz blt-cfef685ad45bc8f98a2d59fba75ba9bc6e06496d.tar.bz2 |
upgrade tkimg 1.4.9
Diffstat (limited to 'tkimg/tests/xbm.test')
-rw-r--r-- | tkimg/tests/xbm.test | 78 |
1 files changed, 0 insertions, 78 deletions
diff --git a/tkimg/tests/xbm.test b/tkimg/tests/xbm.test deleted file mode 100644 index c7c7506..0000000 --- a/tkimg/tests/xbm.test +++ /dev/null @@ -1,78 +0,0 @@ -# This file is a Tcl script to test out XBM reading and writing. -# 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 - -imageInit - -namespace eval ::xbm::test { - namespace import ::tcltest::* - - set fmt "xbm" - set ext "xbm" - set file "testimgs/img.$ext" - - # Encoded image content. - source $file.base64 - - test xbm-1.1 {} -setup { - catch {image delete i} - } -body { - image create photo i -file $file - i data -format $fmt - } -cleanup { - image delete i - } -result $imgdata - - test xbm-1.2 {} -setup { - catch {image delete i} - } -body { - image create photo i -data $imgdata - i data -format $fmt - } -cleanup { - image delete i - } -result $imgdata - - test xbm-1.3 {} -setup { - catch {image delete i} - } -body { - image create photo i - i put $imgdata - i data -format $fmt - } -cleanup { - image delete i - } -result $imgdata - - test xbm-1.4 {} -setup { - catch {image delete i} - } -body { - image create photo i - i put $imgdata -format $fmt - i data -format $fmt - } -cleanup { - image delete i - } -result $imgdata - - - test xbm-2.0 {Binary I/O with XBM images} -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 ::xbm::test |