tests/testthat/test_double.R

In Cours-R/travailler-package-EricMarcon: Calculate multiples of numbers

test_that("Double values are correct", {
  skip_on_cran()
  x <- 1:2
  # 2 x 2 should be 4
  expect_equal(double(x), c(2, 4))
  # The result should be a number (type = 'double')
  expect_type(double(x), "double")
  # Error management
  expect_error(double("a"))
})

test_that("Double values are equal", {
  skip_on_cran()
  x <- 1:2
  # double (R) and timesTwo (C++) should give the same result
  expect_equal(double(x), timesTwo(x))
  # double multiple(times = 2)$y should give the same result
  expect_equal(double(x), multiple(x, times = 2)$y)
})