tests/testthat/test-create_lfs_lookup.R

In djpr-data/djprdashdata: Store ABS Labour Force Data for use in Dashboards

test_that("lfs_lookup data object is of expected size", {
  expect_gt(nrow(lfs_lookup), 20000)
  expect_gt(length(lfs_lookup), 26)
})

# test_that("create_lfs_lookup() behaves as expected", {
#   skip_on_ci()
#
#   if (!interactive()) {
#     ts_dir <- here::here("djprdashdata", "data-raw", "abs-ts")
#   } else {
#     ts_dir <- here::here("data-raw", "abs-ts")
#   }
#
#   abs_6202 <- qs::qread(here::here(ts_dir, "6202-0.qs"))
#   abs_6291 <- qs::qread(here::here(ts_dir, "6291-0-55-001.qs"))
#   abs_pivots <- qs::qread(here::here(ts_dir, "lfs-pivots.qs"))
#
#   new_lookup <- create_lfs_lookup(
#     bs_6202,
#     abs_6291,
#     abs_pivots
#   )
#
#   expect_gt(nrow(new_lookup), 20000)
#   expect_gt(length(new_lookup), 27)
# })