tests/testthat/test_get_documentation.R

In neotoma2: Working with the Neotoma Paleoecology Database

library("testthat")
library("neotoma2")

context("Retrieves Neotoma2 R package documentation in HTML")
test_that("Manual loading fails if interactive is false.", {
  skip_on_cran()
  testthat::expect_error(get_documentation())
})

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