From 0431a39cc110a6be31edbb1d29f370e4b94624a4 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 1 May 2014 14:06:25 -0400 Subject: [PATCH] Additional test --- minimart/route.rkt | 2 ++ 1 file changed, 2 insertions(+) diff --git a/minimart/route.rkt b/minimart/route.rkt index 37e7025..d06fa2e 100644 --- a/minimart/route.rkt +++ b/minimart/route.rkt @@ -547,6 +547,8 @@ (check-equal? (intersect (b 'a) (b ?)) (rseq* struct:b 'a EOS EAB)) (check-equal? (intersect (b 'a) ?) (rseq* struct:b 'a EOS EAB)) + (check-equal? (intersect (a 'a) (b 'a)) #f) + (check-exn #px"Cannot match on hash tables at present" (lambda () (intersect (hash 'a 1 'b ?) (hash 'a ? 'b 2))))