tests/testthat/test-request_next.R

In congress: Access the Congress.gov API

test_that('cong_request_next errors without arg', {
  expect_error(cong_request_next())
})

test_that('cong_request_next returns object if no pagination', {
  x <- cong_request_next(tibble::tibble())
  expect_s3_class(x, 'tbl_df')
})

with_mock_dir('t/reqnext', {
  test_that('cong_request_next works', {
    x <- tibble::tibble() |>
      `attr<-`('response_info', list('pagination' = list('next' = 'https://api.congress.gov/v3/bill/118?offset=20&limit=20&format=json'))) |>
      cong_request_next()
    expect_s3_class(x, 'tbl_df')
  })
})