Add test for unquote-splice behavior

2013-09-22 15:12:59 +02:00 · 2013-09-22 15:12:59 +02:00 · 6a7d97c286
commit 6a7d97c286
parent 48dd968461
1 changed files with 11 additions and 0 deletions
--- a/tests/native_tests/quote.hy
+++ b/tests/native_tests/quote.hy
@ -82,3 +82,14 @@
  (setv opt (quote &optional))
  (assert (isinstance opt hy.HyLambdaListKeyword))
  (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])))