1test_that("integer64 output will use scientific if necessary", {
2  skip_if_not_installed("bit64")
3
4  # 0 tests for NA warning too
5  x <- bit64::as.integer64(c(0, 1e11, 1e12) + 0:2)
6  expect_snapshot({
7    pillar(add_special(x), width = 6)
8    pillar(add_special(x), width = 7)
9    pillar(add_special(x), width = 8)
10    pillar(add_special(x), width = 9)
11    pillar(add_special(x), width = 10)
12    pillar(add_special(x), width = 11)
13    pillar(add_special(x), width = 12)
14    pillar(add_special(x), width = 13)
15    pillar(add_special(x), width = 14)
16  })
17})
18