tests/testthat/test-colformat.R

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))
  })
})

Try the hms package in your browser

Any scripts or data that you put into this service are public.

hms documentation built on March 31, 2023, 11:09 p.m.