context("box")
loaded_mods <- loadNamespace("box")$loaded_mods
rm(list = ls(loaded_mods), envir = loaded_mods)
test_that("box module coverage is reported", {
withr::with_dir("Testbox", {
cov <- as.data.frame(file_coverage(
source_files = "app/app.R",
test_files = list.files("tests/testthat", full.names = TRUE)))
expect_equal(cov$value, c(5, 2, 3, 3))
expect_equal(cov$first_line, c(5, 6, 8, 13))
expect_equal(cov$last_line, c(5, 6, 8, 13))
expect_true("a" %in% cov$functions)
expect_true("private_function" %in% cov$functions)
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.