tests/testthat/test-congress_key.R

In congress: Access the Congress.gov API

test_that("has_congress_key works", {
  expect_true(is.logical(has_congress_key()))
})

test_that("get_congress_key works", {
  expect_true(is.character(get_congress_key()))
})

test_that("set_congress_key works", {
  testthat::skip_if_not_installed('withr')
  withr::with_envvar(
    c('CONGRESS_KEY' = NA_character_),
    expect_true(is.list(set_congress_key('1234')))
  )

  withr::with_envvar(
    c('CONGRESS_KEY' = NA_character_),
    expect_error(set_congress_key())
  )
})