tests/testthat/test-checks.R

In mundl/smires: Science and Management of Intermittent Rivers and Ephemeral Streams

context("Automated checks before calculating metrics")

# just keep file formats with header
test_that("dt of time series can be guessed", {
  #dict <- c(monthly = "months", weekly = "weeks", daily = "days")
  dt <- c("month",  "week", "day")

  for(i in dt) {
    index <- seq(Sys.Date(), by = i, length.out = 1000)
    expect_equal(object = .guess_deltat(index),
                 expected = i)
  }
})