tests/testthat/test-time-extract.R

In messydates: A Flexible Class for Messy Dates

dt <- as_messydate(c("2012-02-03T14:30:05", "2012-02-03", "2012-02", "2012"))

test_that("date components still extract correctly with a time present", {
  expect_equal(year(dt), c(2012L, 2012L, 2012L, 2012L))
  expect_equal(month(dt), c(2L, 2L, 2L, NA))
  expect_equal(day(dt), c(3L, 3L, NA, NA))
})

test_that("time components extract, NA when absent", {
  expect_equal(hour(dt), c(14L, NA, NA, NA))
  expect_equal(minute(dt), c(30L, NA, NA, NA))
  expect_equal(second(dt), c(5, NA, NA, NA))
})

test_that("time can be parsed without a date", {
  expect_equal(as.character(as_messydate("2:30pm")), "14:30")
  expect_equal(as.character(as_messydate("around 2pm")), "14:00~")
})

test_that("time components extract from a bare time (no date part)", {
  bt <- as_messydate(c("14:30:05", "14:30", "2pm", "14:30:00+02:00"))
  expect_equal(hour(bt), c(14L, 14L, 14L, 14L))
  expect_equal(minute(bt), c(30L, 30L, 0L, 30L))
  expect_equal(second(bt), c(5, NA, NA, 0))
  expect_equal(tz(bt), c(NA, NA, NA, "+02:00"))
  # a bare time has no date components
  expect_true(all(is.na(year(bt))))
  expect_true(all(is.na(month(bt))))
  expect_true(all(is.na(day(bt))))
})

test_that("year() does not warn on a bare time", {
  expect_silent(year(as_messydate("14:30")))
})

test_that("precision extends below the day for a bare time", {
  expect_equal(precision(as_messydate("14:30")), 1440)
  expect_equal(precision(as_messydate("14:30:05")), 86400)
})

test_that("fractional seconds return a numeric", {
  expect_equal(second(as_messydate("2012-02-03T14:30:05.5")), 5.5)
})

test_that("tz returns designator or offset", {
  expect_equal(tz(as_messydate("2012-02-03T14:30:00+02:00")), "+02:00")
  expect_equal(tz(as_messydate("2012-02-03T14:30:00Z")), "Z")
  expect_true(is.na(tz(as_messydate("2012-02-03T14:30:00"))))
})

test_that("precision extends below the day for times", {
  expect_equal(precision(as_messydate("2012-02-03T14")), 24)
  expect_equal(precision(as_messydate("2012-02-03T14:30")), 1440)
  expect_equal(precision(as_messydate("2012-02-03T14:30:05")), 86400)
})

test_that("precision is unchanged for date-only values", {
  expect_equal(precision(as_messydate("2012-02-03")), 1)
  expect_equal(precision(as_messydate("2012-02")), 0.03448276, tolerance = 0.001)
  expect_equal(precision(as_messydate("2012")), 0.00273224, tolerance = 0.001)
})