tests/testthat/test-throw.R

In maSAE: Mandallaz' Model-Assisted Small Area Estimators

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