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

Test requires from native code

Browse Source
This commit is contained in:
Nicolas Dandrimont 2013-05-11 20:57:46 +02:00
parent bd478590fa
commit 1e7c90c44e
2 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/native_tests/language.hy
View File

@ -689,8 +689,17 @@
(defn test-require []
"NATIVE: test requiring macros from python code"
(try
(assert (= "this won't happen" (qplah 1 2 3 4)))
(catch [NameError]))
(require tests.resources.tlib)
(assert (= [1 2 3] (qplah 1 2 3))))
(defn test-require-native []
"NATIVE: test requiring macros from native code"
(require tests.native_tests.native_macros)
(setv x [])
(rev (.append x 1) (.append x 2) (.append x 3))
(assert (= x [3 2 1])))

10
tests/native_tests/native_macros.hy
View File

@ -1,10 +1,10 @@
(defmacro rev [&rest body]
"Execute the `body` statements in reverse"
(quasiquote (do (unquote-splice (list (reversed body))))))
(defn test-rev-macro []
"NATIVE: test stararged native macros"
(defmacro rev [&rest body]
"Execute the `body` statements in reverse"
(quasiquote (do (unquote-splice (list (reversed body)))))))
(setv x [])
(rev (.append x 1) (.append x 2) (.append x 3))
(assert (= x [3 2 1])))