tests/testthat/test-1-retail.R

In trundler: Historical Retail Data from the 'Trundler' API

context("retail")

test_that("no API key", {
  expect_error(get_api_key())
})

test_that("invalid API key", {
  set_api_key("00000000-0000-0000-0000-000000000000")

  expect_error(retailer_products(1), "Missing or invalid API key.")
})

test_that("API key", {
  skip_on_cran()

  expect_error(set_api_key(TRUNDLER_KEY), NA)
  expect_equal(get_api_key(), TRUNDLER_KEY)
})

test_that("URL", {
  expect_error(base_url(), NA)

  expect_error(set_server("8.8.8.8", 80), NA)
  expect_equal(base_url(), "http://8.8.8.8:80/")

  expect_error(set_base_url(base_url_original), NA)
  expect_equal(base_url(), base_url_original)
})