fixing broken build
This commit is contained in:
parent
443af8c76e
commit
5719944ab2
|
@ -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.
|
||||
|
|
|
@ -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!)))
|
||||
|
|
Loading…
Reference in New Issue
Block a user