tests/testthat/test-cumulative-sequence.R

In poissonconsulting/poisdata: Read and Write Data

test_that("cumulative-sequence", {
  data <- data.frame(DateTime = 1:10, Value = rep(1, 10))

  expect_identical(ps_cumulative_sequence(2, cumsum = 4, data), 6L)
  expect_identical(ps_cumulative_sequence(2, cumsum = 1, data), 3L)
  expect_identical(ps_cumulative_sequence(11L, cumsum = 1L, data), NA_integer_)
  expect_identical(ps_cumulative_sequence(1L, cumsum = 12L, data), NA_integer_)
  expect_identical(ps_cumulative_sequence(0L, cumsum = 1L, data), NA_integer_)

  is.na(data$Value[3]) <- TRUE
  expect_identical(ps_cumulative_sequence(2L, cumsum = 4, data), NA_integer_)
})