whalesong/tests/more-tests/booleans.rkt
2011-08-30 02:10:03 -04:00

18 lines
235 B
Racket

#lang planet dyoo/whalesong/base
(boolean? "t")
(boolean? #t)
(boolean? 0)
(boolean? #\t)
(char? "t")
(char? #t)
(char? 0)
(char? #\t)
(char=? #\a #\b)
(char=? #\a #\a)
(char=? #\a #\a #\b)
(char=? #\a #\b #\a)
(char=? #\a #\a #\a)