tests/testthat/test-printer.R

In mjbroerman/imgpreppr: Prepare Images for Blog Posts

context("Just testing printer functionality")

test_that("printer gives us the same output", {
  set.seed(1)
  res = printer(x = rnorm(5), r = rnorm(5))

  expect_equal(nrow(res), 5)

  cm = colMeans(res)
  expect_equal(cm, c(x = 0.129269895004571, r = 0.135135667587365))
})

test_that("multiplication works", {
  expect_equal(2 * 2, 4)
})