summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/011/patmatch.tl3
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/011/patmatch.tl b/tests/011/patmatch.tl
index 38df4c62..063e574b 100644
--- a/tests/011/patmatch.tl
+++ b/tests/011/patmatch.tl
@@ -376,6 +376,9 @@
(test (when-match `@x@x` "123123" t) t)
(test (when-match `@x@{x [1..:]}` "12323" t) t))
+(let ((a "$"))
+ (test (when-match `@a-@b` "$-@" b) "@"))
+
(compile-only
(eval-only
(compile-file (base-name *load-path*) "temp.tlo")