diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-06-17 19:05:18 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-06-17 19:05:18 -0700 |
| commit | 86cb7e4aaf1ed9d0888d445167ab4e894583a4c0 (patch) | |
| tree | 235cbe2fcb81a8b7c26190f98fcf58e60f4d35a0 /tests | |
| parent | 979724dafe047e78f0c6eff50be208a11b1ec547 (diff) | |
| download | txr-86cb7e4aaf1ed9d0888d445167ab4e894583a4c0.tar.gz txr-86cb7e4aaf1ed9d0888d445167ab4e894583a4c0.tar.bz2 txr-86cb7e4aaf1ed9d0888d445167ab4e894583a4c0.zip | |
defset: add tests.
* tests/012/defset.tl: New file.
* tests/012/defset.expected: New file.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/012/defset.expected | 0 | ||||
| -rw-r--r-- | tests/012/defset.tl | 11 |
2 files changed, 11 insertions, 0 deletions
diff --git a/tests/012/defset.expected b/tests/012/defset.expected new file mode 100644 index 00000000..e69de29b --- /dev/null +++ b/tests/012/defset.expected 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))) |