tests/testthat/test_range_validation.R

In iptools: Manipulate, Validate and Resolve 'IP' Addresses

context("Test range and IP validation")

test_that("Range validation works with single ranges", {
  result <- validate_range("127.0.0.1/32")
  expect_that(is.vector(result, "logical"), equals(TRUE))
  expect_that(length(result), equals(1))
  expect_that(result, equals(TRUE))
})

test_that("Range validation works with multiple ranges", {
  result <- validate_range(c("127.0.0.1/32","127.0.0.1/32"))
  expect_that(is.vector(result, "logical"), equals(TRUE))
  expect_that(length(result), equals(2))
  expect_that(result, equals(c(TRUE,TRUE)))
})

test_that("Range validation error handlers work", {
  expect_false(validate_range("127.0.0.1")) #Valid IP, no slash
  expect_false(validate_range("asdsadas/32")) #slash, but not a valid IP
  expect_false(validate_range("127.0.0.1/33")) #slash, valid IP, invalid range
})


test_that("IP validation and classification works with valid IPs",{
  expect_that(ip_classify("127.0.0.1"),equals("IPv4"))
  expect_that(ip_classify("2607:f8b0:4006:80b::1004"), equals("IPv6"))
})

test_that("IP validation and classification registers that invalid IPs are invalid, even if they look plausible",{
  expect_true(is.na(ip_classify("256.256.256.256")))
  expect_true(is.na(ip_classify("2607:f8b0:4006:80b::aaaaa")))
})