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

add a test suite for racket/bool

Browse Source
This commit is contained in:
Robby Findler 2012-02-19 07:39:13 -06:00
parent 190d011f0d
commit ce6d1c042c
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/tests/racket/bool.rkt Normal file
View File

@ -0,0 +1,20 @@
#lang racket/base
(require racket/bool rackunit)
(check-true true)
(check-false false)
(check-true (boolean=? #t #t))
(check-false (boolean=? #t #f))
(check-exn #rx"^boolean=?" (λ () (boolean=? #f 11)))
(check-exn #rx"^boolean=?" (λ () (boolean=? 11 #f)))
(check-true (symbol=? 'x 'x))
(check-false (symbol=? 'x 'y))
(check-exn #rx"^symbol=?" (λ () (symbol=? 'z 11)))
(check-exn #rx"^symbol=?" (λ () (symbol=? 11 'z)))
(check-true (false? #f))
(check-false (false? #t))
(check-false (false? "11"))