tests/testthat/test-prep_apply_coding.R

In dataquieR: Data Quality in Epidemiological Research

test_that("prep_apply_coding works", {
  skip_on_cran()
  study_data <- iris
  x <- prep_study2meta(study_data = study_data,
                       convert_factors = TRUE)
  x$MetaData[[STUDY_SEGMENT]] <- "SEGMENT"
  study_data$Species <- as.character(study_data$Species)
  expect_warning(
    expect_equal(
      prep_apply_coding(study_data = study_data,
                        item_level = x$MetaData)$Species,
      x$ModifiedStudyData$Species
    ),
    regexp = "Metadata does not provide a filled column called .+JUMP_LIST"
  )
})