tests/testthat/test-zzz.R

test_that("sequenceGenerator works", {
  expect_equal(sequenceGenerator()(), "seq_1")

  test <- sequenceGenerator("test")

  expect_equal(test(), "test_1")
  expect_equal(test(), "test_2")
  expect_equal(test(), "test_3")
})
amar00k/rslates documentation built on May 25, 2021, 1:12 p.m.