tests/testthat/test-tar_resources_crew.R

In targets: Dynamic Function-Oriented 'Make'-Like Declarative Pipelines

tar_test("tar_resources_crew()", {
  out <- tar_resources_crew()
  expect_silent(resources_validate(out))
})

tar_test("tar_resources_crew() defaults", {
  tar_option_set(
    resources = tar_resources(
      crew = tar_resources_crew()
    )
  )
  out <- tar_resources_crew()
  expect_null(out$controller)
  expect_null(out$seconds_timeout)
})

tar_test("tar_resources_crew() non-defaults", {
  tar_option_set(
    resources = tar_resources(
      crew = tar_resources_crew(
        controller = "controller_name_x",
        seconds_timeout = 0.037
      )
    )
  )
  out <- tar_resources_crew()
  expect_equal(out$controller, "controller_name_x")
  expect_equal(out$seconds_timeout, 0.037)
})

tar_test("tar_resources_crew() scale", {
  expect_warning(
    tar_resources_crew(scale = TRUE),
    class = "tar_condition_deprecate"
  )
})