fixing broken build

This commit is contained in:
Spencer Florence 2015-01-07 19:42:03 -05:00
parent 443af8c76e
commit 5719944ab2
2 changed files with 7 additions and 5 deletions

View File

@ -18,7 +18,8 @@ The @exec{raco cover} command accepts the following flags:
This will then read COVERALLS_REPO_TOKEN from the environment
and submit the report to coveralls using that repo token. It should be
noted that, for the moment, coveralls requires both bash and curl to
run.}]}
run.
This is also suitable for pushing to coveralls from Travis CI.}]}
@item{@Flag{d} or @DFlag{directory}
--- Specifies the directory output the coverage too.

View File

@ -1,18 +1,19 @@
#lang racket
(require "../main.rkt" rackunit)
(require "../main.rkt" rackunit racket/runtime-path)
(define-runtime-path error "error-file.rkt")
(define-runtime-path main "main.rkt")
(test-begin
(after
(define (do-test files)
(apply test-files! files)
(define c (get-test-coverage))
(define covered
(map (compose path->string last explode-path) files))
(define covered (hash-keys c))
(for-each
(lambda (x) (check-not-false (member x covered)))
files)
(clear-coverage!))
(define files (list "error-file.rkt" "prog.rkt"))
(define files (map path->string (list error main)))
(do-test files)
(do-test (reverse files))
(clear-coverage!)))