tests/testthat/test_output.R

test_that("Print", {
  local_edition(3)

  err <- e("Whoops!")
  war <- w("Caution")

  expect_snapshot_output(err)
  expect_snapshot_output(war)
})

Try the erratum package in your browser

Any scripts or data that you put into this service are public.

erratum documentation built on Jan. 4, 2022, 1:08 a.m.