tests/testthat/test-example.R

In f-hafner/magutils: Utilities for loading data from MAG-Proquest database

test_that("db_example() finds right file", {
  expect_error(db_example("randomfile"),
               regexp = "no file found|No file found|Can't find package file")
  # R CMD check gives "no file found", test() gives "No file found"
  expect_match(db_example("AcademicGraph.sqlite"), "AcademicGraph")
})