tests/testthat/test-colformat.R

In tidyverse/hms: Pretty Time of Day

test_that("pillar", {
  expect_snapshot({
    hms(c(-3600, -123.45 - 60, -1, -0.001, 0, 0.001, 1, 60, 123.45, 3600, NA))
    hms(c(-3600000, -3600, -60, -1, 0, 1, 60, 3600, 3600000, NA))
    hms(c(-4000.55, -3600, -60, 0, 180, 7200, 10000.23, NA))
    hms(c(-60, -1, 0, 1, 60, NA))
    hms(c(-60, -1, -0.001, 0, 0.001, 1, 60, NA))
  })
})