tests/testthat/test-check-covr.R

In pkgcheck: Package Checks for 'rOpenSci'

# paths sometimes fail on windows
skip_on_os ("windows")

test_that ("check covr", {

    grps <- setdiff (goodpractice::all_check_groups (), "covr")
    withr::with_options (
        list (goodpractice.exclude_check_groups = grps),
        checks <- make_check_data_srr (goodpractice = TRUE)
    )

    ci_out <- output_pkgchk_covr (checks)
    expect_type (ci_out, "list")
    expect_length (ci_out, 3L)
    expect_named (ci_out, c ("check_pass", "summary", "print"))

    expect_false (ci_out$check_pass)
    expect_true (grepl ("Package coverage", ci_out$summary, fixed = TRUE))
    expect_length (ci_out$print, 1L)
    expect_false (nzchar (ci_out$print))

    checks$goodpractice$covr <- list (pct_by_line = 12.3456)
    ci_out <- output_pkgchk_covr (checks)
    expect_false (ci_out$check_pass)
    expect_equal (
        ci_out$summary,
        "Package coverage is 12.3% (should be at least 75%)."
    )

    checks$goodpractice$covr <- list (pct_by_line = 92.3456)
    ci_out <- output_pkgchk_covr (checks)
    expect_true (ci_out$check_pass)
    expect_equal (ci_out$summary, "Package coverage is 92.3%.")
})