tests/testthat/test-do_magic.R

In luisboullosa/learnr: This Package Helps Luis Learn How And Why To Make R Packages

context("do_stuff")

## TODO: Rename context
## TODO: Add more tests

test_that("exponentiation works", {
  expect_equal(do_stuff(2), 4)
  expect_equal(do_stuff(42), 42)
  expect_error(
    do_stuff("Not numeric"),
    "x must be numeric"
  )
})