tests/testthat/test-create_codebook.R

In antaldaniel/retroharmonize: Ex Post Survey Data Harmonization

metadata <- metadata_create (
  survey_list = read_rds (
    system.file("examples", "ZA7576.rds",
                package = "retroharmonize")
  ))

metadata_2 <- metadata
metadata_2$user_var <- paste0(1:nrow(metadata), "_user")

names (metadata )
test_codebook <- create_codebook ( metadata )
test_codebook_2 <- create_codebook ( metadata = metadata_2 )

names ( test_codebook_2)

examples_dir <- system.file("examples", package = "retroharmonize")
survey_list <- dir(examples_dir)[grepl("\\.rds", dir(examples_dir))]

example_surveys <- read_surveys(
  file.path( examples_dir, survey_list), 
  export_path = NULL)

test_survey_codebook <- create_codebook  (survey = example_surveys[[1]])

test_that("Deprecation warning is given", {
  expect_warning(codebook_waves_create ( waves = example_surveys ))
})

waves_codebook <- codebook_surveys_create ( survey_list = example_surveys )

test_that("correct codebook structure is returned", {
  expect_true ( "user_var" %in% names(test_codebook_2))
  expect_true(all(names (test_survey_codebook)[! names ( test_codebook ) %in% names(metadata)] %in% c("entry","val_code_orig","val_label_orig","label_range")))
  expect_true(all(names (test_codebook)[! names ( test_codebook ) %in% names(metadata)] %in% c("entry","val_code_orig","val_label_orig","label_range")))
  expect_true(all(names (waves_codebook)[! names ( test_codebook ) %in% names(metadata)] %in% c("entry","val_code_orig","val_label_orig","label_range")))
})


test_that("correct codebook contents are returned", {
  expect_true (
    ## all files are present in the codebook
    all (survey_list %in% unique ( waves_codebook$filename))
  )
  expect_true ( 
    # The label range is correctly identified
    all ( c("valid", "missing") %in% unique(waves_codebook$label_range))
  )
})

test_that("error handling", {
  expect_error ( create_codebook( survey = data.frame()) )
  expect_error ( create_codebook(metadata = NULL, survey = NULL ))
})