tests/testthat/test-f_to_c.R

In eunicezh/STAT302package: Package Building Demonstration

# within test-f_to_c.R
test_that("f_to_c works mathematically", {
  expect_equal(f_to_c(32), 0)
  expect_equal(f_to_c(212), 100)
})
test_that("non-numeric input throws error",
          { expect_error(f_to_c("a string"))
})