tests/testthat/test-pip_inventory.R

In PIP-Technical-Team/pipload: Loads PIP data into memory

test_that("list of countries correct in inventory", {
  root_dir  <-  Sys.getenv("PIP_ROOT_DIR")
  maindir   <-  pip_create_globals(root_dir)$PIP_DATA_DIR

  cdf <- fs::dir_ls(path    = fs::path(maindir, "COL"),
                    regexp  = "PIP.*dta$",
                    recurse = TRUE
  )
  cdf <- as.character(cdf)
  # Remove _vintage folder from inventory
  cdf <- grep("_vintage", cdf, value = TRUE, invert = TRUE)
  df  <- pip_inventory("update",
                      country = "COL")
  df  <- as.character(df)

  expect_equal(df, cdf)
})