suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

updated test suite for string solid/outline arguments

Browse Source 
svn: r1035
This commit is contained in:
Robby Findler 2005-10-10 15:42:20 +00:00
parent 5b33d6559c
commit 9426bc8248
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/tests/mzscheme/htdp-image.ss
View File

@ -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))