extra/images/bitmap/bitmap-tests.factor

   1 USING: images.bitmap images.testing kernel sequences ;
   2
   3 ! "vocab:images/testing/bmp/1bit.bmp" bmp-image decode-test
   4 ! "vocab:images/testing/bmp/rgb_4bit.bmp" bmp-image decode-test
   5
   6 {
   7     "vocab:images/testing/bmp/rgb_8bit.bmp"
   8     "vocab:images/testing/bmp/42red_24bit.bmp"
   9 } [
  10     bmp-image [ decode-test ] [ encode-test ] 2bi
  11 ] each