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

fail on curl failure (Issue #7)

Browse Source
This commit is contained in:
Spencer Florence 2015-01-11 20:55:43 -05:00
parent 3c98384dec
commit edc306dcf7
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
private/coveralls.rkt
View File

@ -42,9 +42,12 @@
(if (verbose) (if (verbose)
(current-output-port) (current-output-port)
(open-output-nowhere))]) (open-output-nowhere))])
(void (system* (path->string post) (define result
(system* (path->string post)
coverage-file coverage-file
(if (verbose) "-v" ""))))) (if (verbose) "-v" "")))
(unless result
(error 'coveralls "request to coveralls failed"))))
;; 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"))

2
private/curl.sh
View File

@ -3,4 +3,4 @@
file=$1 file=$1
verbose=$2 verbose=$2
curl $verbose --include --form json_file=@"$file" "https://coveralls.io/api/v1/jobs" curl $verbose --include --fail --form json_file=@"$file" "https://coveralls.io/api/v1/jobs"