tests/testthat/test-organize_labels.R

In Lissette401/Procesamiento-base-usuaria-EPH: Argentina's Permanent Household Survey Data and Manipulation Utilities

context("test-organize_labels")

test_that("labels hogar", {
  df <- organize_labels(toybase_hogar_2016_04, type='hogar')
  regiones <- expss::val_lab(df$REGION)
  expect_equal(!is.null(regiones),TRUE)
})


test_that("labels individual", {
  df <- organize_labels(toybase_individual_2016_03, type='individual')
  regiones <- expss::val_lab(df$REGION)
  expect_equal(!is.null(regiones),TRUE)
})