tests/testthat/testMultiplyBy23.R

In nclJoshCowley/nclCowley: Trivial Package to Learn Package Creation

context("Test MultiplyBy23() Function")

test_that("Correct value is returned", {
  expect_equal(MultiplyBy23(10), 230)
  expect_equal(MultiplyBy23(c(10, 20)), c(230, 460))
})

test_that("Class is retained", {
  expect_is(MultiplyBy23(1), "numeric")
  expect_is(MultiplyBy23(1:5), "numeric")
  expect_is(MultiplyBy23(matrix(1:4, 2, 2)), "matrix")
})

test_that("String argument fails", {
  expect_error(MultiplyBy23("a"), "non-numeric argument")
  expect_error(MultiplyBy23('A'), "non-numeric argument")
})