tests/testthat/test-dst_get_data.R

In rOpenGov/dkstat: API connection to the StatBank from Statistics Denmark

test_that("dst_get_data returns an error when the limit is reached.", {

  expect_error(dst_get_data(table = "folk1",
                            query = list(CIVILSTAND = "*",
                                            STATSB = "*",
                                            HERKOMST = c("Personer med dansk oprindelse", "Efterkommere"),
                                            TID = "*",
                                            ALDER = "*"), lang = "da"))

})


test_that("dst_get_data is parsing the data correctly when 'en' and 'da' are selected as language. The API returns decimal numbers with both , and .", {

  expect_equal(class(dst_get_data("AUP01", ALDER = "*", TID = "*", lang = "da", format = "CSV")$value), "numeric")

})

test_that("dst_get_data fails with the BULK format when not all parameters have values.", {

  expect_error(dst_get_data("AUP01", ALDER = "*", TID = "*", lang = "da", format = "BULK"))

})