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