From 1f1961057f77ba0ff7bdd115454b6f7fd0a451da Mon Sep 17 00:00:00 2001 From: Spencer Florence Date: Tue, 17 Feb 2015 11:50:02 -0500 Subject: [PATCH] fixed tests --- tests/repl-like.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/tests/repl-like.rkt b/tests/repl-like.rkt index 76b9e37..5f20da6 100644 --- a/tests/repl-like.rkt +++ b/tests/repl-like.rkt @@ -15,4 +15,7 @@ (make-covered? (hash-ref x file) file)) (for ([_ (in-string (file->string file))] [i (in-naturals 1)]) - (check-equal? (covered? i) 'covered (~a i))))) + (define c (covered? i)) + (check-true (or (eq? c 'covered) + (eq? c 'irrelevant)) + (~a i)))))