tests/testthat/test-bill.R

In congress: Access the Congress.gov API

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

with_mock_dir('t/bill2', {
  test_that('`cong_bill()` without item works', {
    x <- cong_bill(congress = 117, type = 'hr', number = 3076)
    expect_s3_class(x, 'tbl_df')
  })
})

with_mock_dir('t/bill3', {
  test_that('`cong_bill()` with item works', {
    x <- cong_bill(congress = 117, type = 'hr', number = 3076, item = 'actions')
    expect_s3_class(x, 'tbl_df')
  })
})

with_mock_dir('t/bill4', {
  test_that('`cong_bill()` with item = text works', {
    x <- cong_bill(congress = 117, type = 'hr', number = 3076, item = 'text')
    expect_s3_class(x, 'tbl_df')
  })
})

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

with_mock_dir('t/bill5', {
  test_that('`cong_bill()` with item = summaries works', {
    x <- cong_bill(congress = 117, type = 'hr', number = 3076, item = 'summaries')
    expect_s3_class(x, 'tbl_df')
  })
})

with_mock_dir('t/bill6', {
  test_that('`cong_bill()` with item = committees works', {
    x <- cong_bill(congress = 117, type = 'hr', number = 3076, item = 'committees')
    expect_s3_class(x, 'tbl_df')
  })
})