66 lines
1.1 KiB
Hy
66 lines
1.1 KiB
Hy
; copyright ..
|
|
|
|
|
|
(setv square (fn [x]
|
|
(* x x)))
|
|
|
|
|
|
(setv test_basic_math (fn []
|
|
"NATIVE: Test basic math."
|
|
(assert (= (+ 2 2) 4))))
|
|
|
|
|
|
(setv test_mult (fn []
|
|
"NATIVE: Test multiplication."
|
|
(assert (= 4 (square 2)))))
|
|
|
|
|
|
(setv test_sub (fn []
|
|
"NATIVE: Test subtraction"
|
|
(assert (= 4 (- 8 4)))))
|
|
|
|
|
|
(setv test_add (fn []
|
|
"NATIVE: Test addition"
|
|
(assert (= 4 (+ 1 1 1 1)))))
|
|
|
|
|
|
(setv test_div (fn []
|
|
"NATIVE: Test division"
|
|
(assert (= 25 (/ 100 2 2)))
|
|
; Commented out until float constants get implemented
|
|
; (assert (= 0.5 (/ 1 2)))
|
|
(assert (= 1 (* 2 (/ 1 2))))))
|
|
|
|
(setv test_int_div (fn []
|
|
"NATIVE: Test integer division"
|
|
(assert (= 25 (// 101 2 2)))))
|
|
|
|
(defn test-modulo []
|
|
"NATIVE: test mod"
|
|
(assert (= (% 10 2) 0)))
|
|
|
|
(defn test-pow []
|
|
"NATIVE: test pow"
|
|
(assert (= (** 10 2) 100)))
|
|
|
|
(defn test-lshift []
|
|
"NATIVE: test lshift"
|
|
(assert (= (<< 1 2) 4)))
|
|
|
|
(defn test-rshift []
|
|
"NATIVE: test lshift"
|
|
(assert (= (>> 8 1) 4)))
|
|
|
|
(defn test-bitor []
|
|
"NATIVE: test lshift"
|
|
(assert (= (| 1 2) 3)))
|
|
|
|
(defn test-bitxor []
|
|
"NATIVE: test xor"
|
|
(assert (= (^ 1 2) 3)))
|
|
|
|
(defn test-bitand []
|
|
"NATIVE: test lshift"
|
|
(assert (= (& 1 2) 0)))
|