tests/testthat/test-time-annotate.R

In messydates: A Flexible Class for Messy Dates

dt <- "2012-02-03T14:30:05"

test_that("time components can be annotated as approximate", {
  expect_equal(as.character(approximate(dt, "hour")), "2012-02-03 ~14:30:05")
  expect_equal(as.character(approximate(dt, "minute")), "2012-02-03 14:~30:05")
  expect_equal(as.character(approximate(dt, "second")), "2012-02-03 14:30:~05")
  expect_equal(as.character(approximate(dt, "time")), "2012-02-03 14:30:05~")
})

test_that("time components can be annotated as uncertain", {
  expect_equal(as.character(uncertain(dt, "hour")), "2012-02-03 ?14:30:05")
  expect_equal(as.character(uncertain(dt, "second")), "2012-02-03 14:30:?05")
})

test_that("date components still annotate with a time present", {
  expect_equal(as.character(approximate(dt, "day")), "2012-02-~03 14:30:05")
  expect_equal(as.character(approximate(dt, "month")), "2012-~02-03 14:30:05")
  expect_equal(as.character(uncertain(dt)), "2012-02-03 14:30:05?")
})

test_that("annotated times round-trip through as_messydate", {
  expect_equal(as.character(as_messydate("2012-02-03T~14:30:05")),
               "2012-02-03 ~14:30:05")
  expect_equal(as.character(as_messydate("2012-02-03T14:30:?05")),
               "2012-02-03 14:30:?05")
  expect_equal(as.character(as_messydate("2012-02-03 ~14:30:05")),
               "2012-02-03 ~14:30:05")
})

test_that("date-only annotation behaviour is unchanged", {
  expect_equal(as.character(approximate("1916-01-01", "ym")), "1916-01~-01")
  expect_equal(as.character(uncertain("1916-12-31", "day")), "1916-12-?31")
})

test_that("a bare time (no date part) can be annotated", {
  bt <- as_messydate("14:30:05")
  expect_equal(as.character(approximate(bt, "hour")), "~14:30:05")
  expect_equal(as.character(uncertain(bt, "minute")), "14:?30:05")
  expect_equal(as.character(approximate(bt, "second")), "14:30:~05")
  expect_equal(as.character(approximate(bt, "time")), "14:30:05~")
  expect_equal(as.character(uncertain(bt)), "14:30:05?")
  # a date-component marker has nothing to annotate on a bare time (no-op)
  expect_equal(as.character(approximate(bt, "year")), "14:30:05")
})