diff options
Diffstat (limited to 'test')
| -rwxr-xr-x | test/it.t | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -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]; |