tests/testthat/test-createStructure.R

In beckerbenj/eatCodebook: Automatic Codebook Generation

test_that("no input", {
  out <- createStructure()
  expect_equal(names(out), c("Titel", "Ebene"))
  expect_equal(nrow(out), 1)
  expect_equal(out[1, 1], NA)
  expect_equal(out[1, 2], NA)
})

#varInfo <- getVarInfo("tests/testthat/helper_varInfo.xlsx")
#varInfo <- getVarInfo("helper_varInfo.xlsx")
#varInfo[[1]]$Gliederung <- c("1.01", "1.03", "1.02")
varInfo <- getVarInfo("helper_varInfo.xlsx")

test_that("for data.frame", {
  out <- createStructure(varInfo)
  expect_equal(out$Ebene, c("1", "1.01", "1.02", "2", "2.01"))
  expect_equal(out$Titel, c(NA, "Teil 1a", "Teil 1b", NA, "Teil 2"))
})

test_that("for list", {
  l <- list(dat1 = varInfo, dat2 = varInfo)
  out <- createStructure(l)
  expect_equal(out[[1]]$Ebene, c("1", "1.01", "1.02", "2", "2.01"))
  expect_equal(out[[1]]$Titel, c(NA, "Teil 1a", "Teil 1b", NA, "Teil 2"))
  expect_equal(out[[2]]$Ebene, c("1", "1.01", "1.02", "2", "2.01"))
  expect_equal(out[[2]]$Titel, c(NA, "Teil 1a", "Teil 1b", NA, "Teil 2"))
})


test_that("informative error", {
  varInfo2 <- varInfo3 <- varInfo
  varInfo2[2, "Gliederung"] <- "1.01"
  expect_error(createStructure(varInfo2),
               "For 'Gliederung' 1.01 there are different entries in 'Unterteilung.im.Skalenhandbuch': Teil 1a, Teil 1b")
  varInfo3[2, "Unterteilung.im.Skalenhandbuch"] <- "Teil 1a"
  expect_error(createStructure(varInfo3),
               "For 'Unterteilung.im.Skalenhandbuch' Teil 1a there are different entries in 'Gliederung': 1.01, 1.02")

})