test cases for the bools

2011-09-01 11:54:56 -04:00 · 2011-09-01 11:54:56 -04:00 · 81e05b1ac8
commit 81e05b1ac8
parent cc4bc33331
2 changed files with 10 additions and 0 deletions
--- a/tests/more-tests/booleans.expected
+++ b/tests/more-tests/booleans.expected
@ -11,3 +11,7 @@ true
 false
 false
 true
+true
+false
+false
+true
--- a/tests/more-tests/booleans.rkt
+++ b/tests/more-tests/booleans.rkt
@ -1,4 +1,5 @@
 #lang planet dyoo/whalesong/base
+(require (planet dyoo/whalesong/lang/bool))

 (boolean? "t")
 (boolean? #t)
@ -15,3 +16,8 @@
 (char=? #\a #\a #\b)
 (char=? #\a #\b #\a)
 (char=? #\a #\a #\a)
+
+true
+false
+(false? true)
+(false? false)