context("basic wrapper works")
test_that("we can do something", {

  x <- get_address("example.com")
  expect_true(all(c("2606:2800:220:1:248:1893:25c8:1946", "93.184.216.34") %in% x))

})