diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/011/patmatch.tl | 3 |
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") |