whalesong/tests/more-tests/images.rkt
2011-08-30 02:10:03 -04:00

10 lines
195 B
Racket

#lang planet dyoo/whalesong/base
(require (planet dyoo/whalesong/image))
(image-color? "red")
(image-color? "blue")
(image-color? 42)
(image-color? (make-color 3 4 5 0))
(image-color? "color")