tests/testthat/test-findblocks_3.R

In wesleyburr/tsinterp: Time Series Interpolation

test_that("findblocks_testing1", {
  v <- rep(TRUE, 5)
  result <- findBlocks(v)
  expect_equal(result, NULL)
  v2 <- rep(TRUE, TRUE)
  result2 <- findBlocks(v2)
  expect_equal(result2, NULL)
  V3 <- 1
  expect_equal(findBlocks(V3), NULL)
  V4 <- numeric(0)
  expect_equal(findBlocks(V4), NULL)
  v5 <- c(1, 2, NA, 4, 5)
  result3 <- findBlocks(v5)
  expect_equal(result3, matrix(c(3, 3, 1), nrow = 1, ncol = 3))
  v6 <- c(50, 6, 77, 900, 3)
  result4 <- findBlocks(v6)
  expect_is(result4, "NULL")
  v9 <- c(1:100, rep(NA, 50), 100:200)
  result5 <- findBlocks(v9)
  expect_equal(result5, matrix(c(101, 150, 50), nrow = 1, ncol = 3))
})