/usr/share/doc/r-cran-testthat/tests/testthat/test-reporter-stop.R

test_that("produces useful output", {
  expect_snapshot_reporter(StopReporter$new())
})

test_that("stop if needed errors when needed",{
  r <- StopReporter$new()
  expect_error(r$stop_if_needed(), NA)
  r$n_fail <- 1
  expect_error(r$stop_if_needed(), "Test failed")
  r$stop_reporter <- FALSE
  expect_error(r$stop_if_needed(), NA)
})

Generated by dwww version 1.15 on Sun May 19 03:22:47 CEST 2024.