diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-10-26 19:07:10 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-10-26 19:07:10 -0700 |
| commit | da1cb870c407410f3197179fa5d43474c758883d (patch) | |
| tree | c8afc3ada9b99f459c7d85829784cb0012a951bb /tests/011/patmatch.tl | |
| parent | c4313b5b2df139dcee040b3b83333f9099a8e4c1 (diff) | |
| download | txr-da1cb870c407410f3197179fa5d43474c758883d.tar.gz txr-da1cb870c407410f3197179fa5d43474c758883d.tar.bz2 txr-da1cb870c407410f3197179fa5d43474c758883d.zip | |
match: unquoted quasiliteral patterns don't work.
* tests/011/patmatch.tl: Add failing test cases.
* txr.1: Document desired requirements.
Diffstat (limited to 'tests/011/patmatch.tl')
| -rw-r--r-- | tests/011/patmatch.tl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/011/patmatch.tl b/tests/011/patmatch.tl index 09d294a8..da2f8de4 100644 --- a/tests/011/patmatch.tl +++ b/tests/011/patmatch.tl @@ -526,3 +526,8 @@ (eval-only (compile-file (base-name *load-path*) "temp.tlo") (remove-path "temp.tlo"))) + +(mtest + (match @`foo-@a` "foo-abc" a) "abc" + (match ^(,`foo-@a`) '("foo-abc") a) "abc" + (match ^#J[~`foo-@a`] #("foo-abc") a) "abc") |