hy/tests/native_tests/math.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)))
ideas, ideas. 2013-03-06 00:39:34 +01:00			`; copyright ..`


Change all instances of (def foo bar) to (setv foo bar)! I'm in ur base polluting your language with all my opinions! 2013-04-01 23:51:28 +02:00			`(setv square (fn [x]`
adding better native testing 2013-03-06 04:15:45 +01:00			`(* x x)))`


Change all instances of (def foo bar) to (setv foo bar)! I'm in ur base polluting your language with all my opinions! 2013-04-01 23:51:28 +02:00			`(setv test_basic_math (fn []`
adding better native testing 2013-03-06 04:15:45 +01:00			`"NATIVE: Test basic math."`
Tweaking the AST. 2013-03-06 03:42:54 +01:00			`(assert (= (+ 2 2) 4))))`
adding better native testing 2013-03-06 04:15:45 +01:00

Change all instances of (def foo bar) to (setv foo bar)! I'm in ur base polluting your language with all my opinions! 2013-04-01 23:51:28 +02:00			`(setv test_mult (fn []`
adding better native testing 2013-03-06 04:15:45 +01:00			`"NATIVE: Test multiplication."`
			`(assert (= 4 (square 2)))))`


Change all instances of (def foo bar) to (setv foo bar)! I'm in ur base polluting your language with all my opinions! 2013-04-01 23:51:28 +02:00			`(setv test_sub (fn []`
adding better native testing 2013-03-06 04:15:45 +01:00			`"NATIVE: Test subtraction"`
			`(assert (= 4 (- 8 4)))))`


Change all instances of (def foo bar) to (setv foo bar)! I'm in ur base polluting your language with all my opinions! 2013-04-01 23:51:28 +02:00			`(setv test_add (fn []`
adding better native testing 2013-03-06 04:15:45 +01:00			`"NATIVE: Test addition"`
			`(assert (= 4 (+ 1 1 1 1)))))`


Change all instances of (def foo bar) to (setv foo bar)! I'm in ur base polluting your language with all my opinions! 2013-04-01 23:51:28 +02:00			`(setv test_div (fn []`
adding better native testing 2013-03-06 04:15:45 +01:00			`"NATIVE: Test division"`
Use __future__.division for all Hy code Fixes #106 Note: This is implemented by replacing all calls to Python's builtin "compile" function by calls to hy.importer.compile_, which adds the "future division" flag. Anyone using "compile" in future work will have to remember this. 2013-04-12 05:23:25 +02:00			`(assert (= 25 (/ 100 2 2)))`
			`; Commented out until float constants get implemented`
			`; (assert (= 0.5 (/ 1 2)))`
			`(assert (= 1 (* 2 (/ 1 2))))))`
add mod operator 2013-03-19 02:46:58 +01:00
Implement integer division operator Fixes #107 2013-04-11 10:09:15 +02:00			`(setv test_int_div (fn []`
			`"NATIVE: Test integer division"`
			`(assert (= 25 (// 101 2 2)))))`

add mod operator 2013-03-19 02:46:58 +01:00			`(defn test-modulo []`
			`"NATIVE: test mod"`
			`(assert (= (% 10 2) 0)))`