tests/testthat/test_stop_warn.R

In mllg/conditions: Standardized Conditions for R

context("stop/warn called from C")

mystop = function(condition) { .Call(cstop, condition) }
mywarn = function(condition) { .Call(cwarn, condition) }
mymessage = function(condition) { .Call(cmessage, condition) }

test_that("stop", {
  expect_error(mystop("foo"), "inherit")
  cond = condition_error("missing", "foo")
  expect_error(mystop(cond), "foo")

  res = tryCatch(mystop(cond),
    condition = function(c) { c }
  )
  expect_is(res, "missing_error")
  expect_is(res, "error")
})

test_that("warn", {
  expect_error(mywarn("foo"), "inherit")
  cond = condition_warning("missing", "foo")
  expect_warning(mywarn(cond), "foo")

  res = tryCatch(mywarn(cond),
    condition = function(c) { c }
  )
  expect_is(res, "missing_warning")
  expect_is(res, "warning")
})

test_that("message", {
  expect_error(mywarn("foo"), "inherit")
  cond = condition_message("missing", "foo")
  expect_message(mymessage(cond), "foo")

  res = tryCatch(mymessage(cond),
    condition = function(c) { c }
  )
  expect_is(res, "missing_message")
  expect_is(res, "message")
})