updated test suite for string solid/outline arguments
svn: r1035
This commit is contained in:
parent
5b33d6559c
commit
9426bc8248
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue
Block a user