anchor.diff: -;;;# Unit Tests for BMP file interface 
  +;;;# Unit Tests for BMP file interface
   ;;;
   ;;; RUN-TESTS to run tests, either individually, multiply, or all at
   ;;; once:
  
positive.code:     (let* ((a (decode-bmpimage "intrepid-argb"))
             (b (encode-decode a :strip-alpha T :keep-tmp T))
             (c (decode-bmpimage "tmp")))
        (assert-true (typep a 'rgba-image))
        (assert-true (typep b 'rgb-image))
        (assert-true (typep c 'rgb-image))
        (assert-equal 0 (max-diff b c))))
  
  (run-tests decode-strip-alpha)
  (run-tests encode-strip-alpha)
  
  
  
  
negative.code:            (b (decode-bmpimage "intrepid-argb"))
             (c (decode-bmpimage "intrepid-argb" :strip-alpha T)))
      (assert-true (typep a 'rgb-image))
      (assert-true (typep c 'rgb-image))
      (assert-equal 0 (max-diff a c))))
  
  