tests/testthat/test-class_duration.R

In globalgov/messydates: A Flexible Class for Messy Dates

mdur <- messyduration("2010-01..2010-12")
test_that("mdates_duration class works", {
  expect_equal(class(mdur), "mdates_duration")
  # expect_message(mdur, "Converting to mdate class.")
  expect_error(messyduration(as_messydate(c("2010-01-01", "2010-01-01"))),
               "mdates_duration class objects should have at least one date range")
  # expect_equal(messyduration(as_messydate("2010-01..2010-12")),
  #              messyduration("2010-01-01..2010-12-31"))
  expect_equal(mdur,
               messyduration("2010-01-01..2010-12-31"))
  # expect_equal(messyduration(as_messydate("2010-01..2010-12"),
  #                            approx_range = 1),
  #              messyduration("2010-01-02..2011-01-01"))
  # expect_equal(messyduration(as_messydate("2010-01..2010-12"),
  #                            approx_range = -1),
  #              messyduration("2009-12-31..2010-12-30"))
})