;;; = ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (assert-equal #true (= 123)) (assert-equal #true (= 123 123)) (assert-equal #false (= 123 456)) (assert-equal #true (= 123 123 123)) (assert-equal #false (= 456 123 123)) (assert-equal #false (= 123 456 123)) (assert-equal #false (= 123 123 456)) (assert-equal #true (= 123 123 123 123)) (assert-equal #false (= 456 123 123 123)) (assert-equal #false (= 123 456 123 123)) (assert-equal #false (= 123 123 456 123)) (assert-equal #false (= 123 123 123 456)) ;;; + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (assert-equal 0 (+)) (assert-equal 123 (+ 123)) (assert-equal 11 (+ 1 10)) (assert-equal 111 (+ 1 10 100)) (assert-equal 1111 (+ 1 10 100 1000)) ;;; - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (assert-equal 0 (- 0)) ;(assert-equal -123 (- 123)) (assert-equal 99 (- 100 1)) (assert-equal 97 (- 100 1 2)) (assert-equal 94 (- 100 1 2 3)) (assert-equal 90 (- 100 1 2 3 4))