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)))
}
Generated by dwww version 1.15 on Sun Jun 23 20:42:55 CEST 2024.