Nothing
x <- c("1.2.3.0", "2001:ff00::")
test_that("is_ipv4 and is_ipv6 work", {
expect_equal(is_ipv4(ip_address(x)), c(TRUE, FALSE))
expect_equal(is_ipv6(ip_address(x)), c(FALSE, TRUE))
expect_equal(is_ipv4(ip_network(paste0(x, "/24"))), c(TRUE, FALSE))
expect_equal(is_ipv6(ip_network(paste0(x, "/24"))), c(FALSE, TRUE))
})
test_that("max_prefix_length works", {
expect_equal(max_prefix_length(ip_address(x)), c(32L, 128L))
expect_equal(max_prefix_length(ip_network(paste0(x, "/24"))), c(32L, 128L))
})
test_that("input validation works", {
expect_snapshot(error = TRUE, {
is_ipv4(1L)
})
expect_snapshot(error = TRUE, {
is_ipv6(1L)
})
expect_snapshot(error = TRUE, {
max_prefix_length(1L)
})
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.