tests/testthat/test-deploy.R

In ropenscilabs/tic: Tasks Integrating Continuously: CI-Agnostic Workflow Definitions

Running <- R6Class(
  "Running",
  inherit = TicStep,
  public = list(
    initialize = function(running = TRUE) {
      private$running <- running
    },
    prepare = function() {
      private$prepare_calls <- private$prepare_calls + 1L
    },
    run = function() {
      private$run_calls <- private$run_calls + 1L
    },
    check = function() private$running,
    get_prepare_calls = function() private$prepare_calls,
    get_run_calls = function() private$run_calls
  ),
  private = list(
    running = NULL,
    prepare_calls = 0L,
    run_calls = 0L
  )
)

test_that("prepare tasks", {
  running <- Running$new()
  not_running <- Running$new(FALSE)
  stage <- local(
    TicStage$new("test") %>%
      add_step(running) %>%
      add_step(not_running),
    dslobj_new()
  )

  expect_output(stage$prepare_all(), "Skipping", fixed = TRUE)
  expect_equal(running$get_prepare_calls(), 1L)
  expect_equal(not_running$get_prepare_calls(), 0L)

  expect_output(stage$prepare_all(), "private$running", fixed = TRUE)

  expect_equal(running$get_run_calls(), 0L)
  expect_equal(not_running$get_run_calls(), 0L)
})

test_that("run tasks", {
  running <- Running$new()
  not_running <- Running$new(FALSE)
  stage <- local(
    TicStage$new("asdfgh") %>%
      add_step(running) %>%
      add_step(not_running),
    dslobj_new()
  )

  expect_output(stage$run_all(), "Skipping asdfgh", fixed = TRUE)

  expect_equal(running$get_prepare_calls(), 0L)
  expect_equal(not_running$get_prepare_calls(), 0L)

  expect_equal(running$get_run_calls(), 1L)
  expect_equal(not_running$get_run_calls(), 0L)

  expect_output(stage$run_all(), "private$running", fixed = TRUE)
})