tests/testthat/test_constituency_results.R

In mnis: Easy Downloading Capabilities for the Members' Name Information Service

library(mnis)
context("mnis_constituency_results")
test_that("mnis_constituency_results returns expected format", {
  skip_on_cran()


  xmniscons <- mnis_constituency_results(constituency_id = 3709, election_id = 0)
  expect_length(xmniscons, 2)
  expect_type(xmniscons, "list")
  expect_true(is.list(xmniscons))
  expect_length(xmniscons$results, 7)
  expect_type(xmniscons$results, "list")
  expect_true(tibble::is_tibble(xmniscons$results))
  expect_type(xmniscons$details, "list")
  expect_true(is.list(xmniscons$details))
})