tests/testthat/test-new-pillar-title.R

In hadley/colformat: Coloured Formatting for Columns

test_that("can format new_pillar_title()", {
  expect_equal(
    format(new_pillar_title(tick_if_needed(c("a", "b c")))),
    format_full_pillar_title(tick_if_needed(c("a", "b c")))
  )
  expect_equal(
    format(new_pillar_title(names(mtcars))),
    format_full_pillar_title(names(mtcars))
  )
})

test_that("titles are left-adjusted", {
  expect_equal(
    get_extent(format(new_pillar_title(c("ab", "c")))),
    c(2, 2)
  )
  expect_equal(
    format(new_pillar_title(c("ab", "c"))),
    style_title(c("ab", "c "))
  )
})