2 files changed, 15 insertions, 0 deletions
diff --git a/tests/012/quasi.expected b/tests/012/quasi.expected
new file mode 100644
index 00000000..e69de29b
--- /dev/null
+++ b/tests/012/quasi.expected
diff --git a/tests/012/quasi.tl b/tests/012/quasi.tl
new file mode 100644
index 00000000..4c017b62
--- /dev/null
+++ b/tests/012/quasi.tl
@@ -0,0 +1,15 @@
+(load "../common")
+
+(test
+  (mapcar (ap (op (ret `@@@1-@@@rest`))) '((a b) (c d) (e f)))
+  ("a-b" "c-d" "e-f"))
+
+(test
+  (let ((a "abc") (b 123))
+    `@{b 12} @{b -12} @{a [0] 3} @{a [0..2] -5}`)
+  "123                   123 a      ab")
+
+(test
+  (let ((a "abc") (b 123))
+    [(ret `@1-@2-@@1-@@2-@{@1 -4}-@{@2 -4}`) a b])
+  "abc-123-abc-123- abc- 123")