tests/testthat/test-get_manual.R

In neotoma2: Working with the Neotoma Paleoecology Database

# tests for `get_manual()`.

test_that("Manual loading fails if interactive is false.", {
  #skip_on_cran()
  expect_error(get_manual())
})

test_that("Manual loading succeeds when interactive is true:", {
  #skip_on_cran()
  expect_null(rlang::with_interactive(get_manual(), value=TRUE))
})