diff options
Diffstat (limited to 'tests/011')
| -rw-r--r-- | tests/011/patmatch.tl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/011/patmatch.tl b/tests/011/patmatch.tl index 063e574b..54dda990 100644 --- a/tests/011/patmatch.tl +++ b/tests/011/patmatch.tl @@ -344,7 +344,11 @@ (test (when-match `@a` "abc" a) "abc") (macro-time-let ((*stderr* *stdnull*)) - (test (when-match `@a@b` "abc" a) :error)) + (test (when-match `@a@b` "abc" a) :error) + (test (when-match `@nil@b` "abc" a) :error) + (test (when-match `@nil@nil` "abc" a) :error) + (test (when-match `@a@nil` "abc" a) :error)) + (test (when-match `@a-$` "a-$" a) "a") (test (when-match `#@a-$` "#a-$" a) "a") |