tests/testthat/test-operate_arithmetic.R

In globalgov/messydates: A Flexible Class for Messy Dates

d <- as_messydate(c("2008-03-25", "-2012-02-27", "2001-01?", "2001",
                    "2001-01-01..2001-02-02", "{2001-01-01,2001-02-02}",
                    #"..2002-02-03",
                    "2001-01-03.."))
a <- as_messydate(c("2008-03-28", "-2012-02-24", "2001-01-04..2001-02-03",
                    "2001-01-04..2002-01-03", "2001-01-04..2001-02-05",
                    "{2001-01-04,2001-02-05}", #"..2002-02-06",
                    "2001-01-06.."))
s <- as_messydate(c("2008-03-22", "-2012-03-01", "2000-12-29..2001-01-28",
                    "2000-12-29..2001-12-28", "2000-12-29..2001-01-30",
                    "{2000-12-29,2001-01-30} ", #"..2002-01-31",
                    "2000-12-31.."))

test_that("operations works properly", {
  # expect_equal(add(d, 3), a)
  expect_equal(d + 3, a)
  # expect_equal(subtract(d, 3), s)
  # expect_equal(d - 3, s)
  # expect_equal(d + "3 days", a)
  expect_equal(d - "3 days", s)
})

based <- as_messydate("2001-01-01")
test_that("operations between mdates work properly", {
  # expect_equal(based +
  #                as_messydate("2001-01-02..2001-01-04"),
  #              as_messydate("2001-01-01..2001-01-04"))
  expect_equal(based + as_messydate("2001-01-03"),
               as_messydate("{2001-01-01,2001-01-03}"))
  # expect_equal(as_messydate("2001-01-01..2001-01-04") -
  #                based,
  #              list(as_messydate("{2001-01-01,2001-01-03..2001-01-04}")))
  # expect_message(based - as_messydate("2001-01-03"),
  #                "First and second elements do not overlap.")
})