From 9270b33cfd64662a7762621f9ea720c50575c632 Mon Sep 17 00:00:00 2001
From: Nathan Gass
Date: Thu, 11 Aug 2022 11:01:04 +0200
Subject: be conservative and block unknown ip formats
---
test/it.t | 7 +++++++
1 file changed, 7 insertions(+)
(limited to 'test')
diff --git a/test/it.t b/test/it.t
index 69b46b6..19f445f 100755
--- a/test/it.t
+++ b/test/it.t
@@ -349,6 +349,13 @@ is(it::is_private_ip('cname.gna.ch'), true, "is_private_ip cn
is(it::is_private_ip('pub4.gna.ch'), true, "is_private_ip pub4.gna.ch has public ipv4 but private ipv6");
is(it::is_private_ip('pub6.gna.ch'), true, "is_private_ip pub6.gna.ch has private ipv6 and public ipv6");
+# Stuff which is interpreted by curl
+is(it::is_private_ip('127.1'), true, "is_private_ip loopback ipv4 (zeroes omitted)");
+is(it::is_private_ip('127.0.0.01'), true, "is_private_ip loopback ipv4 (octal)");
+is(it::is_private_ip('127.0.0.0x1'), true, "is_private_ip loopback ipv4 (hexadecimal)");
+is(it::is_private_ip('127.01.0x1'), true, "is_private_ip private with omissions, octal and hexadecimal");
+is(it::is_private_ip('128.01.0x1'), false, "TODO: is_private_ip non-private with omissions, octal and hexadecimal");
+
# it::filter_keys tests
$data = ['a' => 1, 'b' => 2, 'c' => 3];
--
cgit v1.2.3