tests/testthat/test-my_lm.R

In edwardsung63/stat302package: Package for Stat 302

#within test-my_lm.R
test_that("my_lm outputs a table", {
  expect_is(my_lm(realLm, data = mtcars), "table")
})
test_that("non-table input throws error", {
  expect_error(my_lm("a string"))
})