diff options
Diffstat (limited to 'csc/match-test.csc')
| -rw-r--r-- | csc/match-test.csc | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/csc/match-test.csc b/csc/match-test.csc index d4da153..bcd0d35 100644 --- a/csc/match-test.csc +++ b/csc/match-test.csc @@ -101,3 +101,11 @@ 2 (match (make-test-record-type 1 2 3) ((% %test-record-type a b c) b)))) + + +(test match-record-type-any + (assert-equal + #t + (match '(1 2 3) + ((% %test-record-type . _) #f) + ((! '(1 2 3)) #t)))) |