052num.test

(test "arithmetic is varargs"
  :valueof (+ 1 2 3 (* 1 2 2))
  :should be 10)

(test "unary negation works"
  :valueof (- 3)
  :should be -3)

(test "division works"
  :valueof (/ 4 2 2)
  :should be 1)

(test "increment works with lexical vars"
  :valueof (ret x 3 ++x)
  :should be 4)

(test "divides works"
  :valueof (divides 3 2)
  :should be_false)

(test "divides works - 2"
  :valueof (divides 4 2)
  :should be_true)

(test "comparing anything to false always fails"
  :valueof (< 3 false)
  :should be_false)

(test "> works"
  :valueof (> 3 2 1)
  :should be_true)

(test "> works - 2"
  :valueof (> 3 1 2)
  :should be_false)

(test "< works"
  :valueof (< 3 1 2)
  :should be_false)

(test "< works - 2"
  :valueof (< 1 2 3)
  :should be_true)

(test "< works inside if"
  :valueof (if (3 < 0) 34 35)
  :should be 35)

(test "<= works"
  :valueof (<= 1 2 3)
  :should be_true)

(test "<= works - 2"
  :valueof (<= 1 1 3)
  :should be_true)

(test "<= works - 3"
  :valueof (<= 1 4 3)
  :should be_false)

(test "<= fails on nil"
  :valueof (<= 1 nil 3)
  :should be_false)

(test ">= works"
  :valueof (>= 3 2 1)
  :should be_true)

(test ">= works - 2"
  :valueof (>= 3 1 1)
  :should be_true)

(test ">= works - 3"
  :valueof (>= 3 1 2)
  :should be_false)

(test ">= fails on nil"
  :valueof (>= 4 nil 3)
  :should be_false)

(test "max works"
  :valueof (max 0 5 7 9 3 4 21 15)
  :should be 21)

(test "< works with scorer"
  :valueof ((< (fn(_) _%3)) 4 2)
  :should be_true)

(test "< works with scorer - 2"
  :valueof ((< (fn(_) _%3)) 2 4)
  :should be_false)

(test "< returns unscored value on success"
  :valueof ((< car) '(1 2) '(3 4))
  :should be '(3 4))

(test "> works with scorer"
  :valueof ((> abs) -6 2)
  :should be_true)

(test "> works with scorer - 2"
  :valueof ((> abs) 3 -6)
  :should be_false)

(test "sort works"
  :valueof (sort (<) '(1 12 3))
  :should be '(1 3 12))

(test "sort works with scorer"
  :valueof (sort (< (fn(_) _%3)) '(5 7 6))  # modulo sort
  :should be '(6 7 5))

(test "sort works on lists"
  :valueof (sort (< car) '((2 1) (3 2) (1 3)))
  :should be '((1 3) (2 1) (3 2)))

(test "floats compare to within a tolerance"
  :valueof (2 >= 2.0000001)
  :should be_true)

(test "sum works with zero args"
  :valueof (sum nil)
  :should be 0)

(test "sum works with one arg"
  :valueof (sum '(2))
  :should be 2)

(test "sum works with multiple args"
  :valueof (sum '(1 2 3))
  :should be 6)

(test "range checks work"
  :valueof (1 <= 1 <= 2)
  :should be_true)

(test "range checks work - 2"
  :valueof (3 >= 2 > 2)
  :should be_false)