diff --git a/collects/tests/mzscheme/htdp-image.ss b/collects/tests/mzscheme/htdp-image.ss index 7729f22328..a757077c03 100644 --- a/collects/tests/mzscheme/htdp-image.ss +++ b/collects/tests/mzscheme/htdp-image.ss @@ -95,6 +95,9 @@ (<= (max-difference s-normal s-bitmap) 2)))))))) (test #t 'image? (image? (rectangle 10 10 'solid 'blue))) +(test #t 'image? (image? (rectangle 10 10 "solid" 'blue))) +(test #t 'image? (image? (rectangle 10 10 'outline 'blue))) +(test #t 'image? (image? (rectangle 10 10 "outline" 'blue))) (test #f 'image? (image? 5)) (define red (make-color 255 0 0))