2024-08-27 19:39:13 +00:00
|
|
|
;; -*- mode: lisp; -*-
|
|
|
|
|
|
|
|
|
|
(assert (= 1 1))
|
|
|
|
|
(assert (!= 1 2))
|
2024-08-27 22:00:37 +00:00
|
|
|
(assert (= 1 1.0))
|
|
|
|
|
(assert (= 1.0 1.0))
|
|
|
|
|
(assert (!= 1.0 1.1))
|
|
|
|
|
|
|
|
|
|
(assert (= (+ 1 2) 3))
|
|
|
|
|
(assert (= (+ 1 2.1) 3.1))
|
|
|
|
|
|
|
|
|
|
(assert (= (- 1 2) -1))
|
|
|
|
|
(assert (= (- 1 2.1) -1.1))
|
|
|
|
|
|
|
|
|
|
(assert (= (- 1 -2) 3))
|
|
|
|
|
(assert (= (- 1 -2.1) 3.1))
|
|
|
|
|
|
|
|
|
|
(assert (= (- 0 0) 0))
|
|
|
|
|
(assert (= (- 0 -0) 0))
|
|
|
|
|
(assert (= (+ 0 0) 0))
|
|
|
|
|
|
|
|
|
|
(assert (= (* 2 3) 6))
|
|
|
|
|
(assert (= (* 2 2.1) 4.2))
|
|
|
|
|
|
|
|
|
|
(assert (= (* 2 0) 0))
|
|
|
|
|
(assert (= (* 0 2.1) 0))
|
|
|
|
|
|
|
|
|
|
(assert (= (/ 4 2) 2))
|
|
|
|
|
(assert (= (/ 1 2) 0.5))
|
|
|
|
|
|
|
|
|
|
(assert (= (/ 4 -2) -2))
|
|
|
|
|
(assert (= (/ 1 -2) -0.5))
|
|
|
|
|
|
|
|
|
|
(assert (= (/ 5 2.5) 2))
|
