tests/testthat/test-getPS.R

In jvieroe/voters: Extract Data on Danish Polling Stations

test_that("output format works", {
  expect_equal(class(voters::getPS())[1],
               "sf")
})

test_that("output format works", {
  expect_equal(class(voters::getPS(spatial = TRUE))[1],
               "sf")
})

test_that("output format works", {
  expect_equal(class(voters::getPS(spatial = FALSE))[1],
               "tbl_df")
})

test_that("id argument works", {
  expect_equal("ps_id" %in% names(voters::getPS()),
               TRUE)
})

test_that("id argument works", {
  expect_equal("ps_id" %in% names(voters::getPS(id = TRUE)),
               TRUE)
})


test_that("id argument works", {
  expect_equal("ps_id" %in% names(voters::getPS(id = FALSE)),
               FALSE)
})