summaryrefslogtreecommitdiffstats
path: root/tkimg/tests/xbm.test
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2019-03-20 17:29:30 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2019-03-20 17:29:30 (GMT)
commitcfef685ad45bc8f98a2d59fba75ba9bc6e06496d (patch)
tree066005da150adf4bf7892796647154a49d5ea23c /tkimg/tests/xbm.test
parentc31bd7553b6efd2407fc521dc14aec1936e3cbf0 (diff)
downloadblt-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.test78
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