25 lines
559 B
Makefile
25 lines
559 B
Makefile
(assert-eqv! true (< 1 2))
|
|
(assert-eqv! false (< 2 2))
|
|
(assert-eqv! false (< 3 2))
|
|
|
|
(assert-eqv! true (<= 1 2))
|
|
(assert-eqv! true (<= 2 2))
|
|
(assert-eqv! false (<= 3 2))
|
|
|
|
(assert-eqv! true (> 3 2))
|
|
(assert-eqv! false (> 3 3))
|
|
(assert-eqv! false (> 3 21))
|
|
|
|
(assert-eqv! true (>= 3 2))
|
|
(assert-eqv! true (>= 3 3))
|
|
(assert-eqv! false (>= 3 21))
|
|
|
|
(assert-eqv! false (eqv? 3 2))
|
|
(assert-eqv! true (eqv? 3 3))
|
|
|
|
(assert-eqv! false (eqv? [2 4] [2 5]))
|
|
(assert-eqv! true (eqv? [2 4] [2 4]))
|
|
|
|
(assert-eqv! true (nev? [2 4] [2 5]))
|
|
(assert-eqv! false (nev? [2 4] [2 4]))
|