tests/testthat/test-gitlab.R

context("gitlab")

test_that("gitlab", {
  cov <- package_coverage("TestS4")

  on.exit(unlink("TestS4/public", recursive = TRUE), add = TRUE)

  expect_error(gitlab(coverage = cov), NA)

  expect_true(file.exists("TestS4/public/coverage.html"))
})

Try the covr package in your browser

Any scripts or data that you put into this service are public.

covr documentation built on Nov. 9, 2023, 9:07 a.m.