tests/testthat/test-treaty.R

In congress: Access the Congress.gov API

with_mock_dir('t/treaty', {
  test_that('`cong_treaty()` works', {
    x <- cong_treaty()
    expect_s3_class(x, 'tbl_df')
  })
})

with_mock_dir('t/treaty1', {
  test_that('`cong_treaty()` with item works', {
    x <- cong_treaty(congress = 114, number = 13, suffix = 'A', item = 'actions')
    expect_s3_class(x, 'tbl_df')
  })
})

with_mock_dir('t/treat2', {
  test_that('`cong_treaty()` without item works', {
    x <- cong_treaty(congress = 117, number = 3)
    expect_s3_class(x, 'tbl_df')
  })
})

test_that('`cong_treaty()` errors with from_date missing to_date', {
  expect_error(cong_treaty(congress = 118, from_date = '2023-05-05'))
})