tests/testthat/test-reverse_pointer.R

In ipaddress: Data Analysis for IP Addresses and Networks

test_that("reverse pointer works", {
  expect_equal(reverse_pointer(ip_address("127.0.0.1")), "1.0.0.127.in-addr.arpa")
  expect_equal(
    reverse_pointer(ip_address("2001:db8::1")),
    "1.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.8.b.d.0.1.0.0.2.ip.arpa"
  )

  expect_snapshot(error = TRUE, {
    reverse_pointer(ip_network())
  })
  expect_equal(reverse_pointer(ip_address(NA)), NA_character_)
})