fixed tests

2015-02-17 11:50:02 -05:00 · 2015-02-17 11:50:02 -05:00 · 1f1961057f
commit 1f1961057f
parent 17b8398b89
1 changed files with 4 additions and 1 deletions
--- 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)))))