tests/testthat/test-amendment.R

In congress: Access the Congress.gov API

with_mock_dir("t/amendment", {
  test_that("cong_amendment works", {
    x <- cong_amendment()
    expect_s3_class(x, 'tbl_df')
  })
})

with_mock_dir("t/amend1", {
  test_that("cong_amendment with item works", {
    x <- cong_amendment(congress = 117, type = 'samdt', number = 2137, item = 'actions')
    expect_s3_class(x, 'tbl_df')
  })
})

with_mock_dir("t/amend2", {
  test_that("cong_amendment without item works", {
    x <- cong_amendment(congress = 117, type = 'samdt', number = 2137)
    expect_s3_class(x, 'tbl_df')
  })
})

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