tests/testthat/test1.R

test_that("Test functions", {
  expect_error(tmp <- borehole(runif(8)), NA)
  expect_is(tmp, "numeric")
  expect_length(tmp, 1)
  rm(tmp)
})
CollinErickson/TestFunctions documentation built on Sept. 20, 2024, 10:06 a.m.