tests/testthat/test-pillar.R

In ipaddress: Data Analysis for IP Addresses and Networks

x <- ip_interface(c(
  "29.71.126.113/6",
  NA,
  "::/0",
  "9401:b71a:4193:9b47:4d74:f55b:fdd9:b2ba/101",
  "2642:2f46:2d65:b800::/55"
))

test_that("without truncation", {
  expect_snapshot({
    pillar::pillar_shaft(x)
    pillar::pillar_shaft(as_ip_network(x))
    pillar::pillar_shaft(as_ip_address(x))
  })
})

test_that("with truncation", {
  expect_snapshot({
    print(pillar::pillar_shaft(x), width = 20)
    print(pillar::pillar_shaft(as_ip_network(x)), width = 20)
    print(pillar::pillar_shaft(as_ip_address(x)), width = 20)
  })
})

test_that("too much truncation", {
  expect_error(print(pillar::pillar_shaft(x), width = 5))
})