tests/testthat/test-util-assert.R

test_that("assert_is", {
  expect_error(assert_is(NULL, "function"),
               "must be a function")
  expect_silent(assert_is(sin, "function"))
})

test_that("assert_raw", {
  expect_error(assert_raw(1), "must be raw")
  expect_silent(assert_raw(raw(1)))
})
richfitz/encryptr documentation built on Feb. 11, 2025, 9:36 p.m.