From c98a367495b153db0fc69c5e315665d3eab2f61c Mon Sep 17 00:00:00 2001 From: "Paul R. Tagliamonte" Date: Tue, 9 Apr 2013 21:55:34 -0400 Subject: [PATCH] Merging the two tests. --- tests/native_tests/language.hy | 23 ++++++----------------- 1 file changed, 6 insertions(+), 17 deletions(-) diff --git a/tests/native_tests/language.hy b/tests/native_tests/language.hy index f6a6f83..6b1f380 100644 --- a/tests/native_tests/language.hy +++ b/tests/native_tests/language.hy @@ -514,26 +514,15 @@ (defn test-eval [] "NATIVE: test eval" (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))))) (setf x 2) (assert (= 4 (eval (quote (+ x 2))))) (setf test-payload (quote (+ x 2))) (setf x 4) (assert (= 6 (eval test-payload))) - (assert (= 6 (eval (quote ((fn [] (+ 3 3)))))))) - - - -; FEATURE: native hy-eval -; -; - 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)))) + (assert (= 6 (eval (quote ((fn [] (+ 3 3))))))) + (assert (= 1 (eval (quote 1)))) + (assert (= "foobar" (eval (quote "foobar")))) + (setv x (quote 42)) + (assert (= x (eval x))))