suzanne.soy/cover
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed tests

Browse Source
This commit is contained in:
Spencer Florence 2015-02-17 11:50:02 -05:00
parent 17b8398b89
commit 1f1961057f
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/repl-like.rkt
View File

@ -15,4 +15,7 @@
(make-covered? (hash-ref x file) file)) (make-covered? (hash-ref x file) file))
(for ([_ (in-string (file->string file))] (for ([_ (in-string (file->string file))]
[i (in-naturals 1)]) [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)))))