Carp/test/int_math.carp

(load "Test.carp")

(use-all Int Test)

(defn main []
  (with-test test
    (assert-equal test
                  1
                  (min 1 2)
                  "min works as expected")
    (assert-equal test
                  2
                  (max 1 2)
                  "max works as expected")
    (assert-equal test
                  1
                  (abs -1)
                  "abs works as expected")
    (assert-equal test
                  false
                  (even? 3)
                  "even? works as expected")
    (assert-equal test
                  true
                  (odd? 3)
                  "odd? works as expected")
    (assert-equal test
                  1
                  (bit-and 3 5)
                  "bit-and works as expected")
    (assert-equal test
                  5
                  (bit-or 1 4)
                  "bit-or works as expected")
    (assert-equal test
                  4
                  (bit-xor 1 5)
                  "bit-xor works as expected")
    (assert-equal test
                  -2
                  (bit-not 1)
                  "bit-not works as expected")
    (assert-equal test
                  8
                  (bit-shift-left 2 2)
                  "bit-shift-left works as expected")
    (assert-equal test
                  2
                  (bit-shift-right 16 3)
                  "bit-shift-right works as expected")
    (print-test-results test)))