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 731a8796..3ccd180e 100644 --- a/tests/011/patmatch.tl +++ b/tests/011/patmatch.tl @@ -620,6 +620,9 @@ (match @(scan-all (b @x)) '(1 2 3 4 b 5 b 6 7 8) x) :error (match @(scan-all (b @x . @nil)) '(1 2 3 4 b 5 b 6 7 8) x) (5 6)) +(test + (match-case 1 (@nil 2)) 2) + (compile-only (eval-only (with-compile-opts (nil unused) |