tests/testthat/test_addLeadingZeros.R

In eatTools: Miscellaneous Functions for the Analysis of Educational Assessments

### set up test data frames
dat <- data.frame(ID=c("112324234244","112324234245","131224234246","112324234247"),
                  v1 = c("0","300","e",NA),
                  v2=c("0","90","10000",NA),
                  v3=c("k","kk","kkk",NA),
                  v4=NA,
                  v5=c("0","90","100","1"))
dat <- set.col.type(dat)

test_that("Errors", {
  expect_error(addLeadingZerosToCharInt(1),
               "Argument dat must be a data.frame.")
  expect_error(addLeadingZerosToCharInt(mtcars),
               "All columns in dat need to be of class character.")
})

test_that("Normal functioning", {
  out <- addLeadingZerosToCharInt(dat)
  expect_equal(out[["ID"]], c("112324234244", "112324234245", "131224234246", "112324234247"))
  expect_equal(out[["v5"]], c("000", "090", "100", "001"))
  expect_equal(out[["v1"]], c("0", "300", "e", NA))
})