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 | 079c96ed8fada68b2186876ccf832585fe919aa4 (patch) | |
| tree | 235cbe2fcb81a8b7c26190f98fcf58e60f4d35a0 | |
| parent | 0875f85d8bb6cf61b6a9ed612936712d5fd0f66a (diff) | |
| download | txr-079c96ed8fada68b2186876ccf832585fe919aa4.tar.gz txr-079c96ed8fada68b2186876ccf832585fe919aa4.tar.bz2 txr-079c96ed8fada68b2186876ccf832585fe919aa4.zip | |
defset: add tests.
* tests/012/defset.tl: New file.
* tests/012/defset.expected: New file.
| -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))) |