tests/testthat/test-reproduce.R

In aaronpeikert/repro: Automated Setup of Reproducible Workflows and their Dependencies

test_that("reproduce recognizes a standard repro project", {
  opts <- options()
  scoped_temporary_project()
  repro_template(".")
  automate()
  expect_message(reproduce(cache = TRUE), regexp = "make docker")
  expect_message(reproduce(cache = FALSE), regexp = "-B")
  expect_equal(reproduce(cache = FALSE), "make docker &&\nmake -B DOCKER=TRUE ")
  options(opts)
})

test_that("reproduce recognizes a standard repro project", {
  opts <- options()
  scoped_temporary_project()
  repro_template(".")
  automate()
  file_delete(".repro/Makefile_Docker")
  expect_message(reproduce(cache = TRUE), regexp = "make")
  expect_message(reproduce(cache = FALSE), regexp = "-B")
  options(opts)
})