tests/testthat/test-committee_report.R

In congress: Access the Congress.gov API

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

with_mock_dir('t/report1', {
  test_that('cong_committee_report with item works', {
    x <- cong_committee_report(congress = 116, type = 'hrpt', number = 617, item = 'text')
    expect_s3_class(x, 'tbl_df')
  })
})

with_mock_dir('t/report2', {
  test_that('cong_committee_report without item works', {
    x <- cong_committee_report(congress = 116, type = 'hrpt', number = 617)
    expect_s3_class(x, 'tbl_df')
  })
})