tests/testthat/test-reset.R

context('reset')

test_that('Reset returns state to start', {
  counter <- generator(0, ~ state + 1)
  discard <- take(counter, 5)
  reset(counter)
  expect_equal(get_state(counter), get_start(counter))
})
michaelquinn32/generators documentation built on May 22, 2019, 9:52 p.m.