suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add tests for non-linearity in `match-let'.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2011-09-01 16:32:42 -04:00
parent a53f51d92d
commit 4c9c02905d
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/tests/match/examples.rkt
View File

@ -692,4 +692,15 @@
(let () (match-define-values (x y 3) (values 1 2 3)) (let () (match-define-values (x y 3) (values 1 2 3))
(list x y))) (list x y)))
(comp '(1 2 3)
(match-let ([(list x y) (list 1 2)] [(list y z) '(2 3)])
(list x y z)))
(comp 'yes
(with-handlers ([exn:fail? (lambda _ 'yes)]
[values (lambda _ 'no)])
(match-let ([(list x y) (list 1 22)] [(list y z) '(2 3)])
(list x y z))))
)) ))