===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libnet-ipv6addr-perl-1.01/t/base85.t-36-# Test new with bad base85 digits.
libnet-ipv6addr-perl-1.01/t/base85.t:37:eval { $x = new Net::IPv6Addr("0123456789ABCDEF GHI"); };
libnet-ipv6addr-perl-1.01/t/base85.t-38-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/base85.t-41-# Test new with bad base85 length.
libnet-ipv6addr-perl-1.01/t/base85.t:42:eval { $x = new Net::IPv6Addr("0123456789ABCDEFGHI"); };
libnet-ipv6addr-perl-1.01/t/base85.t-43-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/base85.t-46-# Test new with good base85.
libnet-ipv6addr-perl-1.01/t/base85.t:47:$x = new Net::IPv6Addr("4)+k&C#VzJ4br>0wv%Yp");
libnet-ipv6addr-perl-1.01/t/base85.t-48-is (ref $x, 'Net::IPv6Addr');
##############################################
libnet-ipv6addr-perl-1.01/t/in-network.t-7-my $addr = 'fd00::54:20c:29fe:fe14:ab4b';
libnet-ipv6addr-perl-1.01/t/in-network.t:8:my $x = new Net::IPv6Addr($addr);
libnet-ipv6addr-perl-1.01/t/in-network.t-9-my $in;
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-10-# Test new with garbage.
libnet-ipv6addr-perl-1.01/t/new.t:11:eval { $x = new Net::IPv6Addr("Obvious Garbage"); };
libnet-ipv6addr-perl-1.01/t/new.t-12-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-15-# Test new with preferred style, too many :
libnet-ipv6addr-perl-1.01/t/new.t:16:eval { $x = new Net::IPv6Addr("0:1:2:3:4:5:6:7:8"); };
libnet-ipv6addr-perl-1.01/t/new.t-17-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-20-# Test new with preferred style, not enough :
libnet-ipv6addr-perl-1.01/t/new.t:21:eval { $x = new Net::IPv6Addr("0:1:2:3:4:5:6"); };
libnet-ipv6addr-perl-1.01/t/new.t-22-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-25-# Test new with preferred style, bad digits.
libnet-ipv6addr-perl-1.01/t/new.t:26:eval { $x = new Net::IPv6Addr("0:1:2:3:4:5:6:x"); };
libnet-ipv6addr-perl-1.01/t/new.t-27-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-30-# Test new with preferred style, adjacent :
libnet-ipv6addr-perl-1.01/t/new.t:31:eval { $x = new Net::IPv6Addr("0:1:2:3:4:5:6::7"); };
libnet-ipv6addr-perl-1.01/t/new.t-32-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-35-# Test new with preferred style, too many digits.
libnet-ipv6addr-perl-1.01/t/new.t:36:eval { $x = new Net::IPv6Addr("0:1:2:3:4:5:6:789abcdef"); };
libnet-ipv6addr-perl-1.01/t/new.t-37-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-40-# Test new with preferred style.
libnet-ipv6addr-perl-1.01/t/new.t:41:$x = new Net::IPv6Addr("0:1:2:3:4:5:6:789a");
libnet-ipv6addr-perl-1.01/t/new.t-42-ok(ref $x, 'Net::IPv6Addr');
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-44-# Test new with compressed style, bad digits.
libnet-ipv6addr-perl-1.01/t/new.t:45:eval { $x = new Net::IPv6Addr("0:1:2:3::x"); };
libnet-ipv6addr-perl-1.01/t/new.t-46-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-49-# Test new with compressed style, too many adjacent :
libnet-ipv6addr-perl-1.01/t/new.t:50:eval { $x = new Net::IPv6Addr("0:1:2:::3"); };
libnet-ipv6addr-perl-1.01/t/new.t-51-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-54-# Test new with compressed style, too many digits.
libnet-ipv6addr-perl-1.01/t/new.t:55:eval { $x = new Net::IPv6Addr("0:1:2:3::abcde"); };
libnet-ipv6addr-perl-1.01/t/new.t-56-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-59-# Test new with compressed style, too many :
libnet-ipv6addr-perl-1.01/t/new.t:60:eval { $x = new Net::IPv6Addr("0:1:2:3:4:5:6:7:8"); };
libnet-ipv6addr-perl-1.01/t/new.t-61-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-64-# Test new with compressed style, not enough :
libnet-ipv6addr-perl-1.01/t/new.t:65:eval { $x = new Net::IPv6Addr("0:1"); };
libnet-ipv6addr-perl-1.01/t/new.t-66-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-69-# Test new with compressed style.
libnet-ipv6addr-perl-1.01/t/new.t:70:$x = new Net::IPv6Addr("0:1:2:3::f");
libnet-ipv6addr-perl-1.01/t/new.t-71-ok(ref $x, 'Net::IPv6Addr');
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-73-# Test new with ipv4 style, bad ipv6 digits.
libnet-ipv6addr-perl-1.01/t/new.t:74:eval { $x = new Net::IPv6Addr("0:0:0:0:0:x:10.0.0.1"); };
libnet-ipv6addr-perl-1.01/t/new.t-75-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-78-# Test new with ipv4 style, bad ipv4 digits.
libnet-ipv6addr-perl-1.01/t/new.t:79:eval { $x = new Net::IPv6Addr("0:0:0:0:0:0:10.0.0.x"); };
libnet-ipv6addr-perl-1.01/t/new.t-80-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-83-# Test new with ipv4 style, adjacent :
libnet-ipv6addr-perl-1.01/t/new.t:84:eval { $x = new Net::IPv6Addr("0:0:0:0:0::0:10.0.0.1"); };
libnet-ipv6addr-perl-1.01/t/new.t-85-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-88-# Test new with ipv4 style, too many ipv6 digits.
libnet-ipv6addr-perl-1.01/t/new.t:89:eval { $x = new Net::IPv6Addr("0:0:0:0:0:00000:10.0.0.1"); };
libnet-ipv6addr-perl-1.01/t/new.t-90-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-93-# Test new with ipv4 style, too many :
libnet-ipv6addr-perl-1.01/t/new.t:94:eval { $x = new Net::IPv6Addr("0:0:0:0:0:0:0:10.0.0.1"); };
libnet-ipv6addr-perl-1.01/t/new.t-95-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-98-# Test new with ipv4 style, not enough :
libnet-ipv6addr-perl-1.01/t/new.t:99:eval { $x = new Net::IPv6Addr("0:0:0:0:0:10.0.0.1"); };
libnet-ipv6addr-perl-1.01/t/new.t-100-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-103-# Test new with ipv4 style, too many .
libnet-ipv6addr-perl-1.01/t/new.t:104:eval { $x = new Net::IPv6Addr("0:0:0:0:0:0:10.0.0.0.1"); };
libnet-ipv6addr-perl-1.01/t/new.t-105-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-108-# Test new with ipv4 style, not enough .
libnet-ipv6addr-perl-1.01/t/new.t:109:eval { $x = new Net::IPv6Addr("0:0:0:0:0:0:10.0.1"); };
libnet-ipv6addr-perl-1.01/t/new.t-110-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-113-# Test new with ipv4 style, adjacent .
libnet-ipv6addr-perl-1.01/t/new.t:114:eval { $x = new Net::IPv6Addr("0:0:0:0:0:0:10..0.0.1"); };
libnet-ipv6addr-perl-1.01/t/new.t-115-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-118-# Test new with ipv4 style.
libnet-ipv6addr-perl-1.01/t/new.t:119:$x = new Net::IPv6Addr("0:0:0:0:0:0:10.0.0.1");
libnet-ipv6addr-perl-1.01/t/new.t-120-ok(ref $x, 'Net::IPv6Addr');
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-122-# Test new with compressed ipv4 style, bad ipv6 digits.
libnet-ipv6addr-perl-1.01/t/new.t:123:eval { $x = new Net::IPv6Addr("::fffx:192.168.0.1"); };
libnet-ipv6addr-perl-1.01/t/new.t-124-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-127-# Test new with compressed ipv4 style, bad ipv4 digits.
libnet-ipv6addr-perl-1.01/t/new.t:128:eval { $x = new Net::IPv6Addr("::ffff:192.168.0.x"); };
libnet-ipv6addr-perl-1.01/t/new.t-129-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-132-# Test new with compressed ipv4 style, too many adjacent :
libnet-ipv6addr-perl-1.01/t/new.t:133:eval { $x = new Net::IPv6Addr(":::ffff:192.168.0.1"); };
libnet-ipv6addr-perl-1.01/t/new.t-134-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-137-# Test new with compressed ipv4 style, too many ipv6 digits.
libnet-ipv6addr-perl-1.01/t/new.t:138:eval { $x = new Net::IPv6Addr("::fffff:192.168.0.1"); };
libnet-ipv6addr-perl-1.01/t/new.t-139-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-142-# Test new with compressed ipv4 style, too many ipv4 digits.
libnet-ipv6addr-perl-1.01/t/new.t:143:eval { $x = new Net::IPv6Addr("::ffff:1923.168.0.1"); };
libnet-ipv6addr-perl-1.01/t/new.t-144-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-147-# Test new with compressed ipv4 style, not enough :
libnet-ipv6addr-perl-1.01/t/new.t:148:eval { $x = new Net::IPv6Addr(":ffff:192.168.0.1"); };
libnet-ipv6addr-perl-1.01/t/new.t-149-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-152-# Test new with compressed ipv4 style, too many .
libnet-ipv6addr-perl-1.01/t/new.t:153:eval { $x = new Net::IPv6Addr("::ffff:192.168.0.1.2"); };
libnet-ipv6addr-perl-1.01/t/new.t-154-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-157-# Test new with compressed ipv4 style, not enough .
libnet-ipv6addr-perl-1.01/t/new.t:158:eval { $x = new Net::IPv6Addr("::ffff:192.168.0"); };
libnet-ipv6addr-perl-1.01/t/new.t-159-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-162-# Test new with compressed ipv4 style, adjacent .
libnet-ipv6addr-perl-1.01/t/new.t:163:eval { $x = new Net::IPv6Addr("::ffff:192.168..0.1"); };
libnet-ipv6addr-perl-1.01/t/new.t-164-ok($@);
##############################################
libnet-ipv6addr-perl-1.01/t/new.t-167-# Test new with compressed ipv4 style.
libnet-ipv6addr-perl-1.01/t/new.t:168:$x = new Net::IPv6Addr("::ffff:192.168.0.1");
libnet-ipv6addr-perl-1.01/t/new.t-169-ok(ref $x, 'Net::IPv6Addr');
##############################################
libnet-ipv6addr-perl-1.01/t/string.t-6-
libnet-ipv6addr-perl-1.01/t/string.t:7:my $w = new Net::IPv6Addr("ab:cd:ef:01:23:45:67:89");
libnet-ipv6addr-perl-1.01/t/string.t-8-is($w->to_string_preferred(), "ab:cd:ef:1:23:45:67:89");
##############################################
libnet-ipv6addr-perl-1.01/t/string.t-14-
libnet-ipv6addr-perl-1.01/t/string.t:15:my $x = new Net::IPv6Addr("::");
libnet-ipv6addr-perl-1.01/t/string.t-16-is($x->to_string_preferred(), "0:0:0:0:0:0:0:0");
##############################################
libnet-ipv6addr-perl-1.01/t/string.t-21-
libnet-ipv6addr-perl-1.01/t/string.t:22:my $y = new Net::IPv6Addr("::1");
libnet-ipv6addr-perl-1.01/t/string.t-23-is($y->to_string_preferred(), "0:0:0:0:0:0:0:1");
##############################################
libnet-ipv6addr-perl-1.01/t/string.t-28-
libnet-ipv6addr-perl-1.01/t/string.t:29:my $z = new Net::IPv6Addr("abcd:ef12::3456:789a");
libnet-ipv6addr-perl-1.01/t/string.t-30-is($z->to_string_preferred(), "abcd:ef12:0:0:0:0:3456:789a");
##############################################
libnet-ipv6addr-perl-1.01/t/string.t-35-
libnet-ipv6addr-perl-1.01/t/string.t:36:my $p = new Net::IPv6Addr("::ffff:10.0.0.1");
libnet-ipv6addr-perl-1.01/t/string.t-37-is($p->to_string_preferred(), "0:0:0:0:0:ffff:a00:1");
##############################################
libnet-ipv6addr-perl-1.01/t/string.t-43-my $q;
libnet-ipv6addr-perl-1.01/t/string.t:44:$q = new Net::IPv6Addr("0:0:0:0:0:0:10.0.0.1");
libnet-ipv6addr-perl-1.01/t/string.t-45-is($q->to_string_preferred(), "0:0:0:0:0:0:a00:1");