View source: R/expect_no_error.R
ttm_expect_no_error | R Documentation |
See 'testthat::expect_no_error' for details.
ttm_expect_no_error(object, message = NULL, class = NULL, verbose = 0)
object |
Object to test. |
message |
Passed to 'testthat::expect_no_error()'. |
class |
Passed to 'testthat::expect_no_error()'. |
verbose |
Amount of info that should be printed. |
Test result
set.seed(0)
# 1 attempt, all pass
ttm(1, {
ttm_expect_no_error(1)
})
# Fails first ~10 times, then passes
ttm(100, {
ttm_expect_no_error({
if (runif(1) > 0.1) {
print(1)
stop('give error')
}
})
})
# Will always fail regardless of number of attempts
try({
ttm(3, {
ttm_expect_no_error(stop('error'))
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.