tests/testthat/test-get_code_lists.R

context("Test get_code_lists function")

test_that("get_code_lists returns list for specified data set", {

  out <- get_code_lists("ashe-tables-25")
  expect_type(out, "list")
  expect_named(out, c("time", "geography", "statistics",
                      "sex", "workingpattern",
                      "hoursandearnings", "sectortype"))

})
hamstr147/onsRapi documentation built on Oct. 23, 2020, 2:36 a.m.