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/xbm.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/xbm.test')
| -rwxr-xr-x | tkimg/tests/xbm.test | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/tkimg/tests/xbm.test b/tkimg/tests/xbm.test deleted file mode 100755 index 303298c..0000000 --- a/tkimg/tests/xbm.test +++ /dev/null @@ -1,29 +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.
-#
-
-if {[string compare test [info procs test]] == 1} {
- source defs
-}
-
-catch {image delete i}
-
-test xbm-1.1 {} {
- image create photo i -file folder.xbm
- i data -format xbm
-} {#define InlineData_width 16
-#define InlineData_height 12
-static char InlineData_bits[] = {
- 0x78, 0x00,
- 0x86, 0x55,
- 0x02, 0x01,
- 0xff, 0x5f,
- 0x01, 0x30,
- 0x01, 0x50,
- 0x01, 0x10,
- 0x01, 0x50,
- 0x01, 0x10,
- 0x01, 0x50,
- 0x01, 0x30,
- 0xff, 0x1f};
-}
|