tests/testthat/helper-RcppR6.R

In richfitz/RcppR6: Code-generation Wrapping C++ Classes as R6 Classes

passes_tests <- function() {
  function(package) {
    res <- devtools::test(package)
    expectation(sum(as.data.frame(res)$failed) == 0,
                "tests failed", "tests passed")
  }
}