diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-01-18 14:54:51 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-01-18 14:54:51 -0800 |
| commit | 619188aeefb58cba2068617ea2e8a0694544fe39 (patch) | |
| tree | 9e6125db11f6b62c9161a7296fb1f354692e80e6 | |
| parent | f659a63f4d436dc60eb74af0040cc573d13dd89b (diff) | |
| download | txr-619188aeefb58cba2068617ea2e8a0694544fe39.tar.gz txr-619188aeefb58cba2068617ea2e8a0694544fe39.tar.bz2 txr-619188aeefb58cba2068617ea2e8a0694544fe39.zip | |
Test cases for macros in quasiliterals.
* tests/012/quasi.tl: New tests added.
| -rw-r--r-- | tests/012/quasi.tl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/012/quasi.tl b/tests/012/quasi.tl index 1c4092e2..276d5395 100644 --- a/tests/012/quasi.tl +++ b/tests/012/quasi.tl @@ -25,3 +25,14 @@ (test [(ret [(ret `@1 @rest @@1 @@rest @@@rest @@@1`) 1 10]) 2 20] "1 10 1 10 20 2") + +(test + (let ((s)) + (mapcar (ret `@(push (inc @1) s)`) (range 0 2))) + ("1" "2 1" "3 2 1")) + +(test + (symacrolet ((d "-")) + (let ((s)) + (mapcar (ret `<@{(push (inc @1) s) d}>`) (range 0 2)))) + ("<1>" "<2-1>" "<3-2-1>")) |