tests/testthat/test-tar_seed_get.R

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

tar_test("tar_seed_get() outside a pipeline", {
  expect_equal(tar_seed_get(), 1L)
  expect_equal(tar_seed_get(default = 123L), 123L)
})

tar_test("tar_seed_get() inside a pipeline", {
  x <- target_init("x", quote(targets::tar_seed_get(default = 1L)))
  local_init(pipeline_init(list(x)))$run()
  expect_true(is.integer(target_read_value(x)$object))
  seed <- target_read_value(x)$object
  expect_false(seed == 1L)
  tar_destroy()
  x <- target_init("x", quote(targets::tar_seed_get(default = 1L)))
  local_init(pipeline_init(list(x)))$run()
  expect_identical(target_read_value(x)$object, seed)
})