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'))
})