40 lines
1.7 KiB
Scheme
40 lines
1.7 KiB
Scheme
;;; boolean=? ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
(assert-true (boolean=? #false))
|
|
(assert-true (boolean=? #true))
|
|
(assert-true (boolean=? #false #false))
|
|
(assert-true (boolean=? #true #true))
|
|
(assert-true (boolean=? #false #false #false))
|
|
(assert-true (boolean=? #true #true #true))
|
|
(assert-true (boolean=? #false #false #false #false))
|
|
(assert-true (boolean=? #true #true #true #true))
|
|
(assert-true (boolean=? #false #false #false #false #false))
|
|
(assert-true (boolean=? #true #true #true #true #true))
|
|
(assert-false (boolean=? #false #true))
|
|
(assert-false (boolean=? #true #false))
|
|
(assert-false (boolean=? #false #false #true))
|
|
(assert-false (boolean=? #false #true #false))
|
|
(assert-false (boolean=? #false #true #true))
|
|
(assert-false (boolean=? #true #false #false))
|
|
(assert-false (boolean=? #true #false #true))
|
|
(assert-false (boolean=? #true #true #false))
|
|
|
|
;;; symbol=? ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
(assert-true (symbol=? 'foo))
|
|
(assert-true (symbol=? 'bar))
|
|
(assert-true (symbol=? 'foo 'foo))
|
|
(assert-true (symbol=? 'bar 'bar))
|
|
(assert-true (symbol=? 'foo 'foo 'foo))
|
|
(assert-true (symbol=? 'bar 'bar 'bar))
|
|
(assert-true (symbol=? 'foo 'foo 'foo 'foo))
|
|
(assert-true (symbol=? 'bar 'bar 'bar 'bar))
|
|
(assert-true (symbol=? 'foo 'foo 'foo 'foo 'foo))
|
|
(assert-true (symbol=? 'bar 'bar 'bar 'bar 'bar))
|
|
(assert-false (symbol=? 'foo 'bar))
|
|
(assert-false (symbol=? 'bar 'foo))
|
|
(assert-false (symbol=? 'foo 'foo 'bar))
|
|
(assert-false (symbol=? 'foo 'bar 'foo))
|
|
(assert-false (symbol=? 'foo 'bar 'bar))
|
|
(assert-false (symbol=? 'bar 'foo 'foo))
|
|
(assert-false (symbol=? 'bar 'foo 'bar))
|
|
(assert-false (symbol=? 'bar 'bar 'foo))
|