# NOT RUN {
some_func <- function() stop("oops")
some_other_func <- function() some_func()
tester_func <- function() {
with_mock(
some_func = function() 42,
some_other_func()
)
}
try(some_other_func())
tester_func()
# }
Run the code above in your browser using DataLab