tests/testthat/test-class_backoff.R

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

tar_test("backoff$validate()", {
  expect_silent(backoff_init()$validate())
})

tar_test("index and bound", {
  x <- backoff_init(min = 1, rate = 2, max = 50)
  expect_equal(x$index, 0L)
  expect_equal(x$bound(), x$min)
  for (index in seq_len(5L)) {
    x$increment()
    expect_equal(x$index, index)
    expect_equal(x$bound(), 2 ^ index)
  }
  x$reset()
  expect_equal(x$index, 0L)
  expect_equal(x$bound(), x$min)
})

tar_test("maximum interval", {
  set.seed(0)
  x <- backoff_init(min = 1, rate = 2, max = 10)
  map(seq_len(100), ~x$increment())
  expect_equal(x$index, 100L)
  expect_equal(x$bound(), 10)
})

tar_test("backoff$wait() increments index and bound", {
  set.seed(0)
  x <- backoff_init(min = 0.001, rate = 2, max = 10)
  expect_equal(x$index, 0L)
  expect_equal(x$bound(), 0.001)
  x$wait()
  expect_equal(x$index, 1L)
  expect_equal(x$bound(), 0.002)
})