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 | ca741785bfccf52448c5e9a9bdd82778fc976f51 (patch) | |
| tree | 9e6125db11f6b62c9161a7296fb1f354692e80e6 /tests | |
| parent | 9e7c9e367271266aa61475d3fb6c4e6833e6ae76 (diff) | |
| download | txr-ca741785bfccf52448c5e9a9bdd82778fc976f51.tar.gz txr-ca741785bfccf52448c5e9a9bdd82778fc976f51.tar.bz2 txr-ca741785bfccf52448c5e9a9bdd82778fc976f51.zip | |
Test cases for macros in quasiliterals.
* tests/012/quasi.tl: New tests added.
Diffstat (limited to 'tests')
| -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>")) |