From 88b9b2251183e0e4a6cf41b192cb6a4ce91dbf8c Mon Sep 17 00:00:00 2001 From: Suzanne Soy Date: Wed, 28 Jul 2021 17:10:40 +0100 Subject: [PATCH] Trying to add github service --- cover/private/codecov.rkt | 6 ++++-- cover/private/github-service.rkt | 21 +++++++++++++++++++++ 2 files changed, 25 insertions(+), 2 deletions(-) create mode 100644 cover/private/github-service.rkt diff --git a/cover/private/codecov.rkt b/cover/private/codecov.rkt index 21bb08d..0e7c1e1 100644 --- 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 new file mode 100644 index 0000000..e2945b0 --- /dev/null +++ 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")))))