tests/testthat/test_exceeds_tumbling_sum.R

In s-fleck/lest: Vectorised Nested if-else Statements Similar to CASE WHEN in 'SQL'

test_that("cumsum_threshold works as expected", {

  x <- c(1, 5, 5, 3)
  expect_identical(
    exceeds_tumbling_sum(x, 6),
    c(FALSE, TRUE, FALSE, TRUE)
  )

  expect_identical(
    exceeds_tumbling_sum(x, 6),
    exceeds_tumbling_sum(as.integer(x), 6L)
  )


})