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/swissdd documentation built on June 12, 2025, 6:42 a.m.