tests/testthat/test-datasets.R

In statnipokladna: Use Data from the Czech Public Finance Database

test_that("List of datasets makes sense", {
  expect_equivalent(unique(sp_datasets), sp_datasets)
  expect_equivalent(unique(sp_datasets$id), sp_datasets$id)
  expect_equivalent(unique(sp_datasets$name), sp_datasets$name)
  expect_equivalent(sort(sp_datasets$id), sp_datasets$id)
  expect_equivalent(dplyr::distinct(sp_datasets), sp_datasets)
})

test_that("get_dataset breaks on nonsense", {
  expect_error(sp_get_dataset("blah", 2012, 10))
})

check_dataset_error <- function(dataset, year, month) {
  url <- sp_get_dataset_url(dataset, year, month)
}

test_that("select downloads exist", {
  skip_on_cran()
  expect_type(purrr::map_chr(sp_datasets$id[sp_datasets$id != "finu"],
                             sp_get_dataset_url, year = 2015, month = 12),
              type = "character")
  expect_type(sp_get_dataset_url("finm", 2015, "12"), "character")
  expect_error(sp_get_dataset_url("finu")) # default dates should not work
  expect_error(sp_get_dataset_url("x"))
})