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
@ -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))
   
 ))