tests/testthat/test-verbose.R

In munterfinger/hereR: 'sf'-Based Interface to the 'HERE' REST APIs

test_that("set_verbose works", {
  # Input checks
  expect_error(set_verbose("not_a_boolean"))

  # Test set and unset API key
  set_verbose(TRUE)
  expect_equal(Sys.getenv("HERE_VERBOSE"), "TRUE")
  set_verbose(FALSE)
  expect_equal(Sys.getenv("HERE_VERBOSE"), "")
})