tests/testthat/helper-compare.R

In hms: Pretty Time of Day

expect_hms_equal <- function(x, y) {
  expect_s3_class(x, "hms")
  expect_s3_class(y, "hms")
  expect_equal(as.numeric(x), as.numeric(y))
}

expect_difftime_equal <- function(x, y) {
  expect_s3_class(x, "difftime")
  expect_s3_class(y, "difftime")
  expect_equal(as.numeric(as_hms(x)), as.numeric(as_hms(y)))
}