From 3b2e2ad538d91f0378300c4307a11cbe8579d7b5 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 26 May 2014 06:29:06 -0400 Subject: [PATCH] Another test --- minimart/route.rkt | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/minimart/route.rkt b/minimart/route.rkt index 3060593..bd01d8d 100644 --- a/minimart/route.rkt +++ b/minimart/route.rkt @@ -1176,11 +1176,14 @@ (let ((A (pattern->matcher SA ?)) (B (pattern->matcher SB (list (list (list (list 'foo))))))) (check-equal? (pretty-print-matcher* (matcher-erase-path (matcher-union A B) B)) - A - 'x)) + A)) (let ((A (pattern->matcher SA ?)) (B (matcher-union (pattern->matcher SB (list (list (list (list 'foo))))) (pattern->matcher SB (list (list (list (list 'bar)))))))) (check-equal? (pretty-print-matcher* (matcher-erase-path (matcher-union A B) B)) - A - 'x))) + A)) + (let ((A (pattern->matcher SA ?)) + (B (matcher-union (pattern->matcher SB (list (list (list (list 'foo))))) + (pattern->matcher SB (list (list (list (list 'bar)))))))) + (check-equal? (pretty-print-matcher* (matcher-erase-path (matcher-union A B) A)) + B)))