1 files changed, 11 insertions, 0 deletions
diff --git a/tests/012/defset.tl b/tests/012/defset.tl
new file mode 100644
index 00000000..601be292
--- /dev/null
+++ b/tests/012/defset.tl
@@ -0,0 +1,11 @@
+(load "../common")
+
+(defset foo (:key x y -- a b c (d 4)) n ^(bar ,x ,y, a, b, c ,d ,n))
+
+(test
+  (expand '(set (foo 1 2 :a 3 :b 4) 5))
+  (bar 1 2 3 4 nil 4 5))
+
+(test
+  (expand '(inc (foo 1 2 :a 3 :b 4) 5))
+  (bar 1 2 3 4 nil 4 (+ (foo 1 2 :a 3 :b 4) 5)))