tests/testthat/test-list_party_sponsors.R

In databraryr: Interact with the 'Databrary.org' API

# list_party_sponsors ---------------------------------------------------------
test_that("list_party_sponsors returns a data frame or is NULL.", {
  expect_true((is.null(list_party_sponsors()) ||
                 (class(list_party_sponsors()) == "data.frame")))
})

test_that("list_party rejects bad input parameters", {
  expect_error(list_party_sponsors(party_id = "a"))
  expect_error(list_party_sponsors(party_id = -1))
  expect_error(list_party_sponsors(party_id = TRUE))
  expect_error(list_party_sponsors(party_id = c(1,3)))
  expect_error(list_party_sponsors(party_id = list(a=1, b=2)))

  expect_error(list_party_sponsors(vb = "a"))
  expect_error(list_party_sponsors(vb = -1))
  expect_error(list_party_sponsors(vb = c(2,3)))
  expect_error(list_party_sponsors(vb = list(a=1, b=2)))
  
  expect_error(list_party_sponsors(rq = "a"))
  expect_error(list_party_sponsors(rq = -1))
  expect_error(list_party_sponsors(rq = c(2,3)))
  expect_error(list_party_sponsors(rq = list(a=1, b=2)))
})