tests/testthat/test_roundDF.R

In weirichs/eatTools: Miscellaneous Functions for the Analysis of Educational Assessments

test_that("roundDF errors", {
  expect_error(roundDF(0), "'dat' needs to be a data.frame.")
  expect_error(roundDF(mtcars, "a"), "'digits' needs to be a numeric vector of length 1.")
  expect_error(roundDF(mtcars, 1:2), "'digits' needs to be a numeric vector of length 1.")
})


test_that("roundDF", {
  out <- roundDF(mtcars, 0)
  expect_equal(names(out), names(mtcars))
  expect_equal(out$disp, round(mtcars$disp, 0))
  expect_equal(dim(out), dim(mtcars))
  expect_equal(rownames(out), rownames(mtcars))

  out2 <- roundDF(iris, 0)
  expect_equal(names(out2), names(iris))
  expect_equal(out2$Species, iris$Species)
  expect_equal(dim(out2), dim(iris))
  expect_equal(out2$Sepal.Length, round(iris$Sepal.Length, 0))
})