testthat::test_that("get_root_path is covered", {
x <- get_root_path("jsonld")
testthat::expect_true(file.exists(x))
x <- get_root_path("not_a_package")
testthat::expect_equal(x, "not_a_package")
})
testthat::test_that("example_file() works", {
example_dir <- system.file("examples", package = "codemetar")
testthat::expect_identical(example_file(), example_dir)
filenames <- dir(example_dir)
paths <- vapply(filenames, example_file, character(1), USE.NAMES = FALSE)
testthat::expect_identical(paths, dir(example_dir, full.names = TRUE))
})
testthat::test_that("example_file works", {
expect_match(example_file(), "/examples")
expect_match(example_file("abc"), "^$")
expect_true(file.exists(example_file("codemeta.json")))
})
testthat::test_that("dot_to_package", {
p0 <- get_root_path("desc")
withr::local_dir(new = file.path(p0, "R"))
testthat::expect_error(dot_to_package("."),
"Unable to find root directory")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.