tests/testthat/test-freemium.R

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

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

Try the hereR package in your browser

Any scripts or data that you put into this service are public.

hereR documentation built on Sept. 18, 2023, 5:21 p.m.