Get test that is attached to object as "test" attribute

The returned function can be executed. If that is done within a testthat::Reporter, the results will be reported accordingly. Without reporter, the test runs silently if successful and stops if it fails.

get_test(object)

Arguments

object	to which the test is attached

Value

the test (function)

Examples

f <- function(x) x^2

test(f) <- function() {
   context("f")

   test_that("correct result for complex number", {
     expect_equal(f(1i), -1 + 0i)
   })
}

get_test(f)
#> function() {
#>    context("f")
#> 
#>    test_that("correct result for complex number", {
#>      expect_equal(f(1i), -1 + 0i)
#>    })
#> }
#> <environment: 0x7f84e8ed3c18>

library(testthat)
## execute the test
get_test(f)()

with_reporter("summary", get_test(f)())
#> f: .
#> ══ DONE ════════════════════════════════════════════════════════════════════════
#> Woot!