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

with_mock_dir('t/h_req1', {
  test_that('cong_house_requirement with item works', {
    x <- cong_house_requirement(number = 8070, 'matching-communications')
    expect_s3_class(x, 'tbl_df')
  })
})

with_mock_dir('t/h_req2', {
  test_that('cong_house_requirement without item works', {
    x <- cong_house_requirement(number = 12478)
    expect_s3_class(x, 'tbl_df')
  })
})

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