tests/testthat/test-nomination.R

In congress: Access the Congress.gov API

with_mock_dir('t/nomination', {
  test_that('cong_nomination works', {
    x <- cong_nomination()
    expect_s3_class(x, 'tbl_df')
  })
})

with_mock_dir('t/nomination1', {
  test_that('cong_nomination with item works', {
    x <- cong_nomination(congress = 117, number = 2467, item = 'actions')
    expect_s3_class(x, 'tbl_df')
  })
})

with_mock_dir('t/nomination2', {
  test_that('cong_nomination without item works', {
    x <- cong_nomination(congress = 117, number = 2467)
    expect_s3_class(x, 'tbl_df')
  })
})

test_that('cong_nomination errors with from_date missing to_date', {
  expect_error(cong_nomination(from_date = '2023-05-05'))
})