diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-01-19 07:17:53 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-01-19 07:17:53 -0800 |
| commit | 0f5aeaa56e7d5185c73fb3b25ddf9bbc12eb786d (patch) | |
| tree | fc08212ba4573bd6811e510c64253b3bf6085d8c | |
| parent | b2c1dedf2d2f441b7380d9bbad4e8a2210184935 (diff) | |
| download | txr-0f5aeaa56e7d5185c73fb3b25ddf9bbc12eb786d.tar.gz txr-0f5aeaa56e7d5185c73fb3b25ddf9bbc12eb786d.tar.bz2 txr-0f5aeaa56e7d5185c73fb3b25ddf9bbc12eb786d.zip | |
matcher: add failing test case.
* tests/011/patmatch.tl: New weirdly failing test case. The
@(and @a @b) is important; if that term is replaced by a
simple @a, then the correct datum is bound to c.
| -rw-r--r-- | tests/011/patmatch.tl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/tests/011/patmatch.tl b/tests/011/patmatch.tl index eba15b2e..61b28c58 100644 --- a/tests/011/patmatch.tl +++ b/tests/011/patmatch.tl @@ -80,3 +80,5 @@ ((4 @x) x) ((@x 5) x))) (3 5 3 2021 (vec tor))) + +(test (when-match (@(and @a @b) (x . @c)) '(1 (x 2 3 4)) c) (2 3 4)) |