From 9426bc824819c6ee5a3fc67d1adcc7baa6929443 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 10 Oct 2005 15:42:20 +0000 Subject: [PATCH] updated test suite for string solid/outline arguments svn: r1035 --- collects/tests/mzscheme/htdp-image.ss | 3 +++ 1 file changed, 3 insertions(+) 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))