tests/testthat/test-expect-chk-error.R

In chk: Check User-Supplied Function Arguments

test_that("expect-chk-error", {
  expect_s3_class(expect_chk_error(chk_flag(1)), "chk_error")
  expect_error(
    expect_chk_error(chk_flag(TRUE)),
    "",
    class = "expectation_failure"
  )
  expect_error(
    expect_chk_error(chk_flag(TRUE), class = "chk_error"),
    "`class` must be NULL."
  )
})