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

images test starting

Browse Source
This commit is contained in:
Danny Yoo 2011-07-08 16:37:50 -04:00
parent 59835d9187
commit afd4ff8742
3 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/more-tests/images.expected Normal file
View File

@ -0,0 +1,5 @@
true
true
false
true
false

9
tests/more-tests/images.rkt Normal file
View File

@ -0,0 +1,9 @@
#lang planet dyoo/whalesong
(require (planet dyoo/whalesong/image))
(is-color? "red")
(is-color? "blue")
(is-color? 42)
(is-color? (make-color 3 4 5 0))
(is-color? "color")

1
tests/run-more-tests.rkt
View File

@ -13,3 +13,4 @@
(test "more-tests/simple-structs.rkt")
(test "more-tests/man-vs-boy.rkt")
(test "more-tests/colors.rkt")
(test "more-tests/images.rkt")