Add test case for match ordering bug.

This commit is contained in:
Sam Tobin-Hochstadt 2015-10-27 17:11:37 -04:00
parent 1d3fe10d3d
commit ef6a5c2e75

View File

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