From 6a7d97c286595a4e71e6b74a30222e02423785ed Mon Sep 17 00:00:00 2001 From: Nicolas Dandrimont Date: Sun, 22 Sep 2013 15:12:59 +0200 Subject: [PATCH] Add test for unquote-splice behavior --- tests/native_tests/quote.hy | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/tests/native_tests/quote.hy b/tests/native_tests/quote.hy index 45c7648..8900578 100644 --- 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])))