expect_no_error <- function(expr) {
err <- FALSE
tryCatch(force(expr),
error = function(e) {
err <<- TRUE
}
)
expect(!err, "Expected no error, but had error.")
invisible(NULL)
}
Generated by dwww version 1.15 on Wed May 22 21:48:24 CEST 2024.