1test_that("can format new_pillar_title()", {
2  expect_equal(
3    format(new_pillar_title(names(iris))),
4    format_full_pillar_title(names(iris))
5  )
6  expect_equal(
7    format(new_pillar_title(names(mtcars))),
8    format_full_pillar_title(names(mtcars))
9  )
10})
11
12test_that("titles are left-adjusted", {
13  expect_equal(
14    get_extent(format(new_pillar_title(c("ab", "c")))),
15    c(2, 2)
16  )
17  expect_equal(
18    format(new_pillar_title(c("ab", "c"))),
19    style_title(c("ab", "c "))
20  )
21})
22