tests/testthat/test-dst_get_tables.R

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

test_that("dst_get_tables return a data.frame",{

  expect_equal(class(dst_get_tables(lang = "da")), "data.frame")
  expect_equal(class(dst_get_tables(lang = "en")), "data.frame")

})

test_that("dst_get_tables failes with wrong language input",{

  expect_error(dst_get_tables(lang = "uk"))
  expect_error(dst_get_tables(lang = "no"))
})