tests/testthat/test-ce-hg.R

In arcenis-r/cepumd: Calculate Consumer Expenditure Survey (CE) Annual Estimates

test_that("'year' accepts only valid years", {
  expect_error(
    ce_hg(1990, "interview"),
    paste(
      "This function can only convert hierarchical grouping files from 1997",
      "onward."
    )
  )
})

test_that("'survey' accepts only valid HG types", {
  expect_error(
    ce_hg(2007, "inter"),
    "'survey' must be one of interview, diary, or integrated"
  )
})

test_that("ce_hg results ouputs data frame", {
  expect_s3_class(
    ce_hg(2015, "integrated", hg_zip_path = "../testdata/stubs.zip"),
    "data.frame"
  )
})

test_that("ce_hg has correct columns", {
  expect_true(
    all(
      c("level", "title", "ucc", "factor") %in%
        names(ce_hg(2012, "diary", hg_zip_path = "../testdata/stubs.zip"))
    )
  )
})