tests/testthat/test-datesconversion.R

In IREA-CNR-MI/sprawl: sprawl: Spatial Processing (in) R: Advanced Workflows Library

context("doy to date conversions")
testthat::test_that("Test datesconversions", {
  # skip_on_cran()
  skip_on_travis()
  # convert date to doy OK
  expect_equal(doytodate(100, 2015), as.Date("2015-04-10"))
  expect_equal(doytodate(100, 2016), as.Date("2016-04-09"))
  expect_equal(doytodate(c(100,102), 2015), as.Date(c("2015-04-10", "2015-04-12")))

  # convert date to doy incorrect parameters
  expect_error(doytodate(100, -1))
  expect_error(doytodate(100, "3"))
  expect_error(doytodate(100, c(2000,2001)))

  # convert date to doy outside 0 365
  expect_message(doytodate(400, 2001, verbose = TRUE))
  })


context("date to doy conversions")
testthat::test_that("Test datesconversions", {
  # skip_on_cran()
  skip_on_travis()
  # convert date to doy OK
  expect_equal(datetodoy("2001-04-01"), 91)
  expect_equal(datetodoy("2004/04/01"), 92)
  expect_equal(datetodoy(as.Date("2000-04-01")), 92)
  expect_equal(datetodoy(c("2000-04-01", "2000-04-03")), c(92,94))

  # convert date to doy incorrect parameters
  expect_error(datetodoy("2000-04-0d"))

})