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

test cases for the bools

Browse Source
This commit is contained in:
Danny Yoo 2011-09-01 11:54:56 -04:00
parent cc4bc33331
commit 81e05b1ac8
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/more-tests/booleans.expected
View File

@ -11,3 +11,7 @@ true
false false
false false
true true
true
false
false
true

6
tests/more-tests/booleans.rkt
View File

@ -1,4 +1,5 @@
#lang planet dyoo/whalesong/base #lang planet dyoo/whalesong/base
(require (planet dyoo/whalesong/lang/bool))
(boolean? "t") (boolean? "t")
(boolean? #t) (boolean? #t)
@ -15,3 +16,8 @@
(char=? #\a #\a #\b) (char=? #\a #\a #\b)
(char=? #\a #\b #\a) (char=? #\a #\b #\a)
(char=? #\a #\a #\a) (char=? #\a #\a #\a)
true
false
(false? true)
(false? false)