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