tests/testthat/test-committee.R

In congress: Access the Congress.gov API

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

with_mock_dir('t/comm', {
  test_that('cong_committee no committee works', {
    x <- cong_committee(chamber = 'house')
    expect_s3_class(x, 'tbl_df')
  })
})

with_mock_dir('t/comm2', {
  test_that('cong_committee reports works', {
    x <- cong_committee(chamber = 'senate', committee = 'slpo00', item = 'reports')
    expect_s3_class(x, 'tbl_df')
  })
})

with_mock_dir('t/comm3', {
  test_that('cong_committee nominations works', {
    x <- cong_committee(chamber = 'senate', committee = 'slpo00', item = 'nominations')
    expect_s3_class(x, 'tbl_df')
  })
})

with_mock_dir('t/comm4', {
  test_that('cong_committee house-communication works', {
    x <- cong_committee(chamber = 'house', committee = 'hspw00', item = 'house-communication')
    expect_s3_class(x, 'tbl_df')
  })
})

with_mock_dir('t/comm5', {
  test_that('cong_committee senate-communication works', {
    x <- cong_committee(chamber = 'senate', committee = 'slpo00', item = 'senate-communication')
    expect_s3_class(x, 'tbl_df')
  })
})

with_mock_dir('t/comm6', {
  test_that('cong_committee senate-communication works', {
    x <- cong_committee(chamber = 'senate', committee = 'slpo00', item = 'bills')
    expect_s3_class(x, 'tbl_df')
  })
})

with_mock_dir('t/comm7', {
  test_that('cong_committee chamber works', {
    x <- cong_committee(congress = 117, chamber = 'house')
    expect_s3_class(x, 'tbl_df')
  })
})

with_mock_dir('t/comm8', {
  test_that('cong_committee chamber no congress works', {
    x <- cong_committee(chamber = 'senate', committee = 'jsec03')
    expect_s3_class(x, 'tbl_df')
  })
})

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