Add test case for match ordering bug.

2015-10-27 17:11:37 -04:00 · 2015-10-27 17:11:37 -04:00 · ef6a5c2e75
commit ef6a5c2e75
parent 1d3fe10d3d
1 changed files with 8 additions and 0 deletions
--- a/pkgs/racket-test/tests/match/examples.rkt
+++ b/pkgs/racket-test/tests/match/examples.rkt
@ -802,4 +802,12 @@
                     [(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))
+   
 ))