tests/testthat/test-utils.R

In ropensci/codemetar: Generate 'CodeMeta' Metadata for R Packages

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")
})