From 6b2c635cfafc93e9cb6ea67824d10b96e99888d3 Mon Sep 17 00:00:00 2001 From: Nicolas Dandrimont Date: Fri, 3 May 2013 17:58:56 +0200 Subject: [PATCH] Add some more eval tests --- tests/native_tests/language.hy | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/tests/native_tests/language.hy b/tests/native_tests/language.hy index c8bfdf2..ff7df71 100644 --- a/tests/native_tests/language.hy +++ b/tests/native_tests/language.hy @@ -591,13 +591,13 @@ (setf test-payload (quote (+ x 2))) (setf x 4) (assert (= 6 (eval test-payload))) - ;; (assert (= 6 (eval (quote ((fn [] (+ 3 3))))))) - ;; XXX: This must be commented out while we resolve stmts being run through - ;; eval. Please fix me. -- PRT + (assert (= 9 ((eval (quote (fn [x] (+ 3 3 x)))) 3))) (assert (= 1 (eval (quote 1)))) (assert (= "foobar" (eval (quote "foobar")))) (setv x (quote 42)) - (assert (= x (eval x)))) + (assert (= x (eval x))) + (assert (= 27 (eval (+ (quote (*)) (* [(quote 3)] 3))))) + (assert (= None (eval (quote (print "")))))) (defn test-import-syntax []