tests/testthat/test_fixers.R

In mikkelkrogsholm/statsDK: A Wrapper for the API of Statistics Denmark

library(statsDK)
library(stringr)
library(testthat)

# fix_time ----
context("Testing fix_time")

folk_1 <- suppressMessages(
  sdk_retrieve_data("FOLK1A", TID = "*", ALDER = "IALT", CIVILSTAND = "TOT", lang = "da")
)

folk_2 <- folk_1

folk_2$TID <- sdk_fix_time(folk_2$TID)

test_that("the dates are as expected", {
  expect_true(all(stringr::str_detect(folk_1$TID, "\\d{4}\\w\\d{1}")))
  expect_true(all(stringr::str_detect(folk_2$TID, "\\d{4}-\\d{2}-\\d{2}")))
})

# get_variables ----
context("Testing get_variables")

metadata <- sdk_retrieve_metadata("BEV3A")

# See the variables as a data frame
variables <- sdk_get_variables(metadata)

test_that("we have a nice tidy data frame", {
  expect_true(is.data.frame(variables))
  expect_true(nrow(variables) > 0)
  expect_true(ncol(variables) > 0)
})