From 86cb7e4aaf1ed9d0888d445167ab4e894583a4c0 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 17 Jun 2019 19:05:18 -0700
Subject: defset: add tests.

* tests/012/defset.tl: New file.

* tests/012/defset.expected: New file.
---
 tests/012/defset.expected |  0
 tests/012/defset.tl       | 11 +++++++++++
 2 files changed, 11 insertions(+)
 create mode 100644 tests/012/defset.expected
 create mode 100644 tests/012/defset.tl

(limited to 'tests')

diff --git a/tests/012/defset.expected b/tests/012/defset.expected
new file mode 100644
index 00000000..e69de29b
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)))
-- 
cgit v1.2.3