local_load_all_quiet <- function(value = TRUE, frame = caller_env()) {
local_options("testthat:::load_all_quiet_default" = value, .frame = frame)
}
expect_no_warning <- function(object) {
expect_warning({{ object }}, NA)
}
expect_no_message <- function(object) {
expect_message({{ object }}, NA)
}
suppress_output <- function(expr) {
capture.output(
capture.output(
expr,
type = "message"
),
type = "output"
)
}
Generated by dwww version 1.15 on Mon Jun 24 13:50:09 CEST 2024.