tests/testthat/test-stage_runner__verbose.R

In syberia/stagerunner: Parametrization and execution of linear sequences of actions

context("verbose runs")

test_that("it can run verbosely for a simple stagerunner", {
  sr <- stageRunner$new(new.env(),
    list(a = force, b = list(c = force, d = force), force))
  expect_output(sr$run(verbose = TRUE), "Running 1.*a.*\\.\\.\\.")
  expect_output(sr$run(verbose = TRUE), "Beginning 2.*b.*stage\\.\\.\\.")
  expect_output(sr$run(verbose = TRUE), "Running 1.*c.*\\.\\.\\.")
  expect_output(sr$run(verbose = TRUE), "Ending 2.*b.*stage\\.\\.\\.")
  expect_output(sr$run(verbose = TRUE), "Running 3.*third.*")
})