Yaltik/hy
2
0
Fork 0
Code Pull Requests Releases Activity

Merging the two tests.

Browse Source
This commit is contained in:
Paul R. Tagliamonte 2013-04-09 21:55:34 -04:00
parent 6f0e739b31
commit c98a367495
1 changed files with 6 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
tests/native_tests/language.hy
View File

@ -514,26 +514,15 @@
(defn test-eval [] (defn test-eval []
"NATIVE: test eval" "NATIVE: test eval"
(import-from hy.importer hy-eval) ; XXX: Fix this!!!!! (import-from hy.importer hy-eval) ; XXX: Fix this!!!!!
(import-from hy HyExpression HyInteger HySymbol) (import-from hy HyExpression HyInteger HySymbol HyString)
(assert (= 2 (eval (quote (+ 1 1))))) (assert (= 2 (eval (quote (+ 1 1)))))
(setf x 2) (setf x 2)
(assert (= 4 (eval (quote (+ x 2))))) (assert (= 4 (eval (quote (+ x 2)))))
(setf test-payload (quote (+ x 2))) (setf test-payload (quote (+ x 2)))
(setf x 4) (setf x 4)
(assert (= 6 (eval test-payload))) (assert (= 6 (eval test-payload)))
(assert (= 6 (eval (quote ((fn [] (+ 3 3)))))))) (assert (= 6 (eval (quote ((fn [] (+ 3 3)))))))
(assert (= 1 (eval (quote 1))))
(assert (= "foobar" (eval (quote "foobar"))))
(setv x (quote 42))
; FEATURE: native hy-eval (assert (= x (eval x))))
;
; - related to bug #64
; - https://github.com/paultag/hy/issues/64
; - https://github.com/paultag/hy/pull/62
;
; (defn test-eval []
; "NATIVE: test eval"
; (assert (= 1 (eval 1)))
; (assert (= "foobar" (eval "foobar")))
; (setv x 42)
; (assert (= x (eval x))))