tests/testthat/test-check_utils.R

In yonicd/covrpage: Create a Readme Summary Page for GitHub testthat and covr Outputs

testthat::context("check for tests")

testthat::test_that("tests are detected", {
  testthat::expect_true(covrpage:::check_for_tests(".."))
})

testthat::context("check for packages")

td <- "../assets/covrpage_benchmark/covrpage"

testthat::test_that("packages are detected", {
  testthat::skip_on_ci()

  testthat::expect_error(covrpage:::check_for_pkgs("."))
  testthat::expect_error(covrpage:::check_for_pkgs(".."))

  testthat::expect_null(covrpage:::check_for_pkgs(td))
})

testthat::context("use covrpage")

testthat::test_that("test use_covrpage", {
  testthat::expect_is(covrpage:::use_covrpage(file = NULL), "character")
})