context("Compiled")
test_that("Compiled code coverage is reported including code in headers", {
skip_on_cran()
skip_if(is_win_r41())
cov <- as.data.frame(package_coverage("TestCompiled", relative_path = TRUE))
simple_cc <- cov[cov$filename == "src/simple.cc", ]
expect_equal(simple_cc[simple_cc$first_line == "10", "value"], 4)
expect_equal(simple_cc[simple_cc$first_line == "16", "value"], 3)
expect_equal(simple_cc[simple_cc$first_line == "19", "value"], 0)
expect_equal(simple_cc[simple_cc$first_line == "21", "value"], 1)
expect_equal(simple_cc[simple_cc$first_line == "23", "value"], 4)
# This header contains a C++ template, which requires you to run gcov for
# each object file separately and merge the results together.
simple_h <- cov[cov$filename == "src/simple-header.h", ]
expect_equal(simple_h[simple_h$first_line == "12", "value"], 4)
expect_equal(simple_h[simple_h$first_line == "18", "value"], 3)
expect_equal(simple_h[simple_h$first_line == "21", "value"], 0)
expect_equal(simple_h[simple_h$first_line == "23", "value"], 1)
expect_equal(simple_h[simple_h$first_line == "25", "value"], 4)
expect_true(all(unique(cov$filename) %in% c("R/TestCompiled.R", "src/simple-header.h", "src/simple.cc", "src/simple4.cc")))
})
test_that("Can pass path to relative_path argument", {
skip_on_cran()
skip_if(is_win_r41())
cov <- as.data.frame(package_coverage("TestCompiled", relative_path = "."))
expect_true(all(unique(cov$filename) %in% c(
"TestCompiled/R/TestCompiled.R",
"TestCompiled/src/simple-header.h",
"TestCompiled/src/simple.cc",
"TestCompiled/src/simple4.cc"
)))
})
test_that("Source code subdirectories are found", {
skip_on_cran()
skip_if(is_win_r41())
cov <- as.data.frame(package_coverage("TestCompiledSubdir", relative_path = TRUE))
expect_equal(cov[cov$first_line == "9", "value"], 4)
expect_equal(cov[cov$first_line == "15", "value"], 3)
expect_equal(cov[cov$first_line == "18", "value"], 0)
expect_equal(cov[cov$first_line == "20", "value"], 1)
expect_equal(cov[cov$first_line == "22", "value"], 4)
})
test_that("Compiled code coverage is reported under non-standard char's", {
skip_on_cran()
skip_if(is_win_r41())
cov <- as.data.frame(package_coverage("Test+Char/TestCompiled", relative_path = TRUE))
expect_equal(cov[cov$first_line == "9", "value"], 4)
expect_equal(cov[cov$first_line == "15", "value"], 3)
expect_equal(cov[cov$first_line == "18", "value"], 0)
expect_equal(cov[cov$first_line == "20", "value"], 1)
expect_equal(cov[cov$first_line == "22", "value"], 4)
})
test_that("Error thrown for missing gcov", {
skip_on_cran()
withr::with_options(c(covr.gcov=''),
expect_error(package_coverage("TestCompiled", relative_path=TRUE),
"gcov not found")
)
})
test_that("Warning thrown for empty gcov output", {
skip_on_cran()
withr::with_options(c(covr.gcov_args='-n'),
expect_warning(package_coverage("TestCompiled", relative_path=TRUE),
"parsed gcov output was empty")
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.