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

pretty print coveralls data in verbose mode

Browse Source
This commit is contained in:
Spencer Florence 2015-01-06 23:41:13 -05:00
parent 24798287b2
commit 5ea132e685
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
private/coveralls.rkt
View File

@ -1,6 +1,6 @@
#lang racket #lang racket
(provide generate-coveralls-coverage) (provide generate-coveralls-coverage)
(require racket/runtime-path json "format-utils.rkt" "shared.rkt") (require racket/runtime-path json "format-utils.rkt" "shared.rkt" racket/pretty)
(module+ test (module+ test
(require rackunit "../cover.rkt" racket/runtime-path)) (require rackunit "../cover.rkt" racket/runtime-path))
@ -21,6 +21,9 @@
(with-output-to-file coverage-file (with-output-to-file coverage-file
(thunk (write-json data)) (thunk (write-json data))
#:exists 'replace) #:exists 'replace)
(when (verbose)
(printf "data written was:\n")
(pretty-print data))
(vprintf "invoking coveralls API") (vprintf "invoking coveralls API")
(parameterize ([current-output-port (parameterize ([current-output-port
(if (verbose) (if (verbose)
@ -28,7 +31,7 @@
(open-output-nowhere))]) (open-output-nowhere))])
(void (system* (path->string post) (void (system* (path->string post)
coverage-file coverage-file
(if (vebose) "-v" ""))))) (if (verbose) "-v" "")))))
;; Maps service name to the environment variable that indicates that the service is to be used. ;; Maps service name to the environment variable that indicates that the service is to be used.
(define BUILD-TYPES (hash "travis-ci" "TRAVIS_JOB_ID")) (define BUILD-TYPES (hash "travis-ci" "TRAVIS_JOB_ID"))