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

Add test case for match ordering bug.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2015-10-27 17:11:37 -04:00
parent 1d3fe10d3d
commit ef6a5c2e75
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/racket-test/tests/match/examples.rkt
View File

@ -802,4 +802,12 @@
[(foo) x]) [(foo) x])
42)) 42))
(test-case "ordering"
(define b (box #t))
(check-equal?
(match b
[(and x (? (λ _ (set-box! b #f))) (app unbox #f)) 'yes]
[_ 'no])
'yes))
)) ))