tests/testthat/test-member.R

In congress: Access the Congress.gov API

with_mock_dir("t/member", {
  test_that("cong_member works", {
    x <- cong_member()
    expect_s3_class(x, 'tbl_df')
  })
})

with_mock_dir("t/member1", {
  test_that("cong_member with item works", {
    x <- cong_member(bioguide = 'L000174', item = 'sponsored-legislation')
    expect_s3_class(x, 'tbl_df')
  })
})

with_mock_dir("t/member2", {
  test_that("cong_member without item works", {
    x <- cong_member(bioguide = 'L000174')
    expect_s3_class(x, 'tbl_df')
  })
})

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