succeed_after <- function(i) {
function() {
i <<- i - 1
if (i > 0) fail(paste0("i is ", i))
}
}
test_that("tries multiple times", {
third_try <- succeed_after(3)
expect_true(try_again(3, third_try()))
third_try <- succeed_after(3)
expect_failure(try_again(2, third_try()), "i is 1")
})
Generated by dwww version 1.15 on Sun May 19 04:49:08 CEST 2024.