tests/testthat/test-init-print.R

In piecemeal: Wrangle Large Simulation Studies

test_that("Piecemeal can be initialized and prints", {
  outdir <- tempfile("piecemeal_test_")
  sim <- piecemeal::init(outdir)
  expect_s3_class(sim, "Piecemeal")
  expect_output(print(sim), "A Piecemeal simulation")
  unlink(outdir, recursive = TRUE)
})