commit 88b9b2251183e0e4a6cf41b192cb6a4ce91dbf8c parent 50388b36071d54b2beffc0cfd8ad17cad940f7a8 Author: Suzanne Soy <jsmaniac.github@suzanne.soy> Date: Wed, 28 Jul 2021 17:10:40 +0100 Trying to add github service Diffstat:
| M | cover/private/codecov.rkt | | | 6 | ++++-- |
| A | cover/private/github-service.rkt | | | 21 | +++++++++++++++++++++ |
2 files changed, 25 insertions(+), 2 deletions(-)
diff --git a/cover/private/codecov.rkt b/cover/private/codecov.rkt @@ -12,7 +12,8 @@ cover/private/file-utils "ci-service.rkt" "travis-service.rkt" - "gitlab-service.rkt") + "gitlab-service.rkt" + "github-service.rkt") (module+ test (require rackunit cover racket/runtime-path)) @@ -75,7 +76,8 @@ (define services (hash travis-ci? travis-service@ - gitlab-ci? gitlab-service@)) + gitlab-ci? gitlab-service@ + github-ci? github-service@)) (define CODECOV_HOST "codecov.io") diff --git a/cover/private/github-service.rkt b/cover/private/github-service.rkt @@ -0,0 +1,21 @@ +#lang racket/base +(provide github-service@ github-env?) + +(require "ci-service.rkt" racket/unit racket/list racket/string) + +(define (github-ci?) (and (getenv "GITHUB_REPOSITORY") (getenv "CODECOV_TOKEN"))) + +(define-unit github-service@ + (import) + (export ci-service^) + + (define (query) + (define repo-slug (getenv "GITHUB_REPOSITORY")) + (list (cons 'service "custom") + (cons 'token (getenv "CODECOV_TOKEN")) + ;; TODO: this won't work for tags + (cons 'branch (substring (getenv "GITHUB_REF") (string-length "refs/heads/"))) + (cons 'job (getenv "GITHUB_JOB")) + (cons 'slug (getenv "GITHUB_REPOSITORY")) + (cons 'build (getenv "GITHUB_RUN_ID")) + (cons 'commit (getenv "GITHUB_SHA")))))