1test_that("with and without title", {
2  expect_snapshot({
3    pillar(add_special(10^(1:6)))
4    pillar(add_special(10^(1:6)), title = "crayon")
5    pillar(add_special(10^(1:6)), title = "short")
6    pillar(add_special(10^(1:6)), title = "somewhat_wider")
7    pillar(add_special(10^(1:6)), title = "exactly_fifteen")
8    pillar(add_special(10^(1:6)), title = "absolutely_breaking_all_sensible_boundaries", width = 18)
9  })
10})
11