tests/testthat/test-throw.R

In rBDAT: Implementation of BDAT Tree Taper Fortran Functions

testthat::context("Testing rBDAT:::throw()")
testthat::test_that("throw the rBDAT exception", {
  error_message <- "hello, testthat"
  string <- "hello, testthat"
  testthat::expect_error(
    rBDAT:::throw(string),
    error_message
  )
})