Carp/test/long_math.carp

(load "Test.carp")

(use-all Long Test)

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