tests/testthat/test-getKodebokData.R

In Rapporteket/ablanor: AblaNor- Rapporteket

test_that("getKodebokData works", {
  kb <- ablanor::getKodebokData()

  expect_true(all(
                c("fysisk_feltnavn",
                  "listeverdier",
                  "listetekst",
                  "type") %in% names(kb)))

  expect_true(
    kb %>% is.data.frame()
  )
})