tests/testthat/tests.R

In OleksF/mytestpackage_R: A Nonsense Package To Test Package Creation

context("Fac")

test_that("Fac catches gamma", {
  expect_message(Fac(5.5, gamma = FALSE))
})

test_that("Fac of zero gives 1", {
  expect_equal(Fac(0), 1)
  expect_equal(Fac(0, gamma = FALSE), 1)
})

context("hello")

test_that("hello to you too", {
  expect_equal(hello(), "Hello, world!")
})