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

Add some more eval tests

Browse Source
This commit is contained in:
Nicolas Dandrimont 2013-05-03 17:58:56 +02:00
parent 387bc0d9f2
commit 6b2c635cfa
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/native_tests/language.hy
View File

@ -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 []