1test_that("integer output will use scientific if necessary", {
2  x <- 10000000L + 1:3
3  expect_snapshot({
4    pillar(add_special(x), width = 6)
5    pillar(add_special(x), width = 7)
6    pillar(add_special(x), width = 8)
7    pillar(add_special(x), width = 9)
8  })
9})
10