tests/testthat/helper-call-injecting.R

In PRL-PRG/contractR: What the Package Does (One Line, Title Case)

test_injection <- function(desc, code) {
  on.exit({
    .injected_functions <<- new.env(parent=emptyenv())
  })
  test_that(desc, code)
}

expect_type_assertion <- function(f) {
  expect_true(has_contract(f))
}