tests/coverage-tests/test-coverage.R

In data-science-competitions/Modeling-Earthquake-Damage: Richter's Predictor: Modeling Earthquake Damage

context("coverage tests for the package")
## For excluding lines/scripts from the coverage tests, see:
# ?covr::exclusions

test_that("unless stated otherwise, all scripts must surpass the code coverage threshold", {
    covr_obj <- covr::package_coverage(path = ".", clean = FALSE)
    covr_list <- covr::coverage_to_list(covr_obj)

    names(covr_list$filecoverage) <- basename(names(covr_list$filecoverage))

    ## Tests
    ### Check package code coverage
    expect_gte(covr_list$totalcoverage, 75, label = "Overall Package Code Coverage")
    ### Check scripts code coverage
    for(e in seq_along(covr_list$filecoverage)){
        script_name <- names(covr_list[["filecoverage"]])[e]
        script_coverage <- unname(covr_list[["filecoverage"]][e])
        expect_gte(script_coverage, 75, label = paste0("\n", script_name))
    }

    print("")
    print(covr_list$filecoverage)
})