diff options
| -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>")) |