tests/testthat/helper-snapshot.R

In propensity: A Toolkit for Calculating and Working with Propensity Scores

expect_propensity_error <- function(expr) {
  testthat::expect_snapshot(
    error = TRUE,
    cnd_class = TRUE,
    expr
  )
}

expect_propensity_warning <- function(expr) {
  testthat::expect_snapshot(
    cnd_class = TRUE,
    expr
  )
}