tests/testthat/test-complete.R

In poissonconsulting/dts: Manipulate Date/POSIXct Time Series Data Frames

test_that("completed", {
  expect_true(dts_completed(dts_data[1:3,]))
  expect_false(dts_completed(dts_data[1:3,], floored = FALSE))
  expect_true(dts_completed(dts_data[c(1,3,2),], sorted = FALSE))
  expect_false(dts_completed(dts_data[c(1,3,2),]))
  expect_false(dts_completed(dts_data[c(1,3),]))
})

test_that("complete", {
  expect_identical(dts_complete(dts_data[1:3,]), dts_complete(dts_data[1:3,]))
  complete <- dts_data[c(1,3,2),c("DateTime", "Value")]
  complete$Value[3] <- NA
  rownames(complete) <- NULL
  expect_identical(dts_complete(dts_data[c(1,3),c("DateTime", "Value")])$DateTime, 
               complete[order(complete$DateTime),]$DateTime)
  expect_identical(dts_complete(dts_data[1:2,], from = as.POSIXct("1999-11-28", tz = "Etc/GMT+8"))$DateTime[1], 
               as.POSIXct("1999-11-27 24:00:00", tz = "Etc/GMT+8"))
})