tests/testthat/test-colformat.R

In krlmlr/hms: Pretty Time of Day

context("pillar")

test_that("pillar", {
  expect_known_pillar_shaft_display(
    hms(c(-3600, -123.45 -60, -1, -0.001, 0, 0.001, 1, 60, 123.45, 3600, NA)),
    file = "hmss.txt"
  )
  expect_known_pillar_shaft_display(
    hms(c(-3600000, -3600, -60, -1, 0, 1, 60, 3600, 3600000, NA)),
    file = "hms.txt"
  )
  expect_known_pillar_shaft_display(
    hms(c(-4000.55, -3600, -60, 0, 180, 7200, 10000.23, NA)),
    file = "hm.txt"
  )
  expect_known_pillar_shaft_display(
    hms(c(-60, -1, 0, 1, 60, NA)),
    file = "ms.txt"
  )
  expect_known_pillar_shaft_display(
    hms(c(-60, -1, -0.001, 0, 0.001, 1, 60, NA)),
    file = "mss.txt"
  )
})