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

test_that("errors reset snapshots", {
  if (nzchar(Sys.getenv("TESTTHAT_REGENERATE_SNAPS"))) {
    expect_snapshot(print(1))
  } else {
    expect_snapshot(stop("failing"))
  }
})

test_that("skips reset snapshots", {
  if (nzchar(Sys.getenv("TESTTHAT_REGENERATE_SNAPS"))) {
    expect_snapshot(print(1))
  } else {
    expect_snapshot(skip("skipping"))
  }
})

Generated by dwww version 1.15 on Sun May 19 05:22:00 CEST 2024.