# This file is a Tcl script to test out XBM reading and writing.
# It is organized in the standard fashion for Tcl tests.
#

puts "img::xbm [package require img::xbm]"

test xbm-1.1 {} {
    catch {image delete i}
    image create photo i -file [file join $tcltest::testsDirectory 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};
}