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)
})

Try the TestFunctions package in your browser

Any scripts or data that you put into this service are public.

TestFunctions documentation built on May 29, 2024, 11 a.m.