test_that("same pillar at different widths", {
v <- 10^c(-5, -2, 3, 6)
x <- pillar(v)
expect_equal(get_min_width(x$data), 4)
expect_equal(get_width(x$data), 13)
expect_snapshot({
pillar(v, width = 4)
pillar(v, width = 7)
pillar(v, width = 10)
pillar(v, width = 15)
pillar(v, width = 22)
})
})
Generated by dwww version 1.15 on Sun Jun 16 06:31:50 CEST 2024.