;; -*- mode: lisp; -*-

(assert (= 1 1))
(assert (!= 1 2))
(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))