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

Add test for unquote-splice behavior

Browse Source
This commit is contained in:
Nicolas Dandrimont 2013-09-22 15:12:59 +02:00
parent 48dd968461
commit 6a7d97c286
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tests/native_tests/quote.hy
View File

@ -82,3 +82,14 @@
(setv opt (quote &optional)) (setv opt (quote &optional))
(assert (isinstance opt hy.HyLambdaListKeyword)) (assert (isinstance opt hy.HyLambdaListKeyword))
(assert (= (str opt) "&optional"))) (assert (= (str opt) "&optional")))
(defmacro doodle [&rest body]
`(do ~@body))
(defn test-unquote-splice []
"NATIVE: test unquote-splice does what's intended"
(assert (=
(doodle
[1 2 3]
[4 5 6])
[4 5 6])))