summary refs log tree commit diff
path: root/tests
diff options
context:
space:
mode:
authorLeah Neukirchen <leah@vuxu.org>2022-12-07 01:48:19 +0100
committerLeah Neukirchen <leah@vuxu.org>2022-12-07 01:48:19 +0100
commitbf2318462d7024050635fd4620e207d6d5a7281d (patch)
tree844f58de19b26006c352f8309d35ee2545fd5752 /tests
parent3119e2a2b550919326f7850242a6083c81a9b1fa (diff)
downloadmew-bf2318462d7024050635fd4620e207d6d5a7281d.tar.gz
mew-bf2318462d7024050635fd4620e207d6d5a7281d.tar.xz
mew-bf2318462d7024050635fd4620e207d6d5a7281d.zip
fun=>: fix unquote matching
Diffstat (limited to 'tests')
-rw-r--r--tests/test.mew2
1 files changed, 2 insertions, 0 deletions
diff --git a/tests/test.mew b/tests/test.mew
index 32d9df1..c01bb08 100644
--- a/tests/test.mew
+++ b/tests/test.mew
@@ -547,6 +547,8 @@
 
 (test-group "op=>"
   (test 42 (op=> 40 (+ _ 1) inc))
+  (test 42 (op=> 40 (inc _) inc))
+  (test 42 (op=> 40 ,(op inc _) inc))
   (test #f (op=> 40 inc even?))
   (test 43 (op=> '(6 7) (apply * _) inc))
   (test 42 (op=> 42)))