tests/testthat/helper.R

## usage:
## test_sheet("blanks.xls")
test_sheet <- function(fname) rprojroot::find_testthat_root_file("sheets", fname)

## once https://github.com/hadley/testthat/commit/c83aba9 is on CRAN
## can use testthat::test_path() for this, i.e.,
# test_sheet <- function(fname) testthat::test_path("sheets", fname)

expect_error_free <- function(...) {
  expect_error(..., regexp = NA)
}
omarbenites/traittools documentation built on Dec. 24, 2019, 5:33 a.m.