tests/testthat/test_swiss_json_to_dfr.R

context("swiss_json_to_dfr")

test_that("swiss_json_to_dfr works", {
  
  expect_error(swiss_json_to_dfr(votedates="1999-01-01vv"))
  
  cantvotes <- swiss_json_to_dfr()
  
  expect_is(cantvotes, "data.frame")
  
})
politanch/sdd documentation built on June 15, 2025, 5:16 a.m.