ACIL FM

Nama	Ukuran	Aksi
canon.t	480 B	View DL Edit
constants.t	488 B	View DL Edit
full.t	721 B	View DL Edit
full6-uri.t	727 B	View DL Edit
full6.t	721 B	View DL Edit
imhoff.t	873 B	View DL Edit
loops.t	647 B	View DL Edit
lower.t	220 B	View DL Edit
masklen.t	345 B	View DL Edit
new-store.t	812 B	View DL Edit
nofqdn.t	437 B	View DL Edit
old-store.t	841 B	View DL Edit
over-arr.t	500 B	View DL Edit
over-qq.t	800 B	View DL Edit
relops.t	1.53 MB	View DL Edit
rfc3021.t	627 B	View DL Edit
short.t	1.7 MB	View DL Edit
splitref.t	749 B	View DL Edit
v4-coalesce.t	1.47 MB	View DL Edit
v4-compact.t	2.18 MB	View DL Edit
v4-compplus.t	531 B	View DL Edit
v4-hostenum.t	1.02 MB	View DL Edit
v4-re.t	826 B	View DL Edit
v4-split-bulk.t	547 B	View DL Edit
v4-split-list.t	1.17 MB	View DL Edit
v4-splitplan.t	2.23 MB	View DL Edit
v4-sprefix.t	779 B	View DL Edit
v4-xprefix.t	773 B	View DL Edit
v6-re.t	1.42 MB	View DL Edit
v6-split-bulk.t	513 B	View DL Edit
v6-splitplan.t	2.35 MB	View DL Edit
wildcard.t	546 B	View DL Edit

Edit file: /home/.cpan/build/NetAddr-IP-4.079-0/t/v4-coalesce.t

use Test::More;

if (defined($ENV{LIGHTERIPTESTS}) and $ENV{LIGHTERIPTESTS} =~ /yes/i) {
    print "1..0 # Skipped: LIGHTERIPTESTS = yes\n";
    exit 0;
}

plan tests => 21;

die "# Cannot continue without NetAddr::IP\n"
    unless use_ok('NetAddr::IP', 'Coalesce');

# Test a rather large set...

my @ips = ();

for my $o (0 .. 255)
{
    push @ips, new NetAddr::IP "10.0.$o.1";
    push @ips, new NetAddr::IP "10.0.$o.10";
    push @ips, new NetAddr::IP "10.0.$o.100";
}

sub tst {
# This should return the empty list...
  my $r = Coalesce(24, 4, @ips);
  diag "Coalesce returned $r"
    unless isa_ok($r, 'ARRAY', 'Return type from Coalesce');
  is(@$r, 0, "Empty array returned as expected");

# This should produce a list with all the /24s
  $r = Coalesce(24, 2, @ips);
  diag "Coalesce returned $r"
    unless isa_ok($r, 'ARRAY', 'Return type from Coalesce');
  is(@$r, 256, "Whole result set as expected");
  my @c = NetAddr::IP::Compact(@$r);
  is(@c, 1, "Results are compactable");
  ok($c[0] eq '10.0.0.0/16', "Correct results");

# This should produce the same result as before, with an added /23
  $r = Coalesce(24, 2, @ips, NetAddr::IP->new('10.0.0.125/23'));
  diag "Coalesce returned $r"
    unless isa_ok($r, 'ARRAY', 'Return type from Coalesce');
  ok((grep { $_ eq '10.0.0.0/23' } @$r), "/23 went through");
  @c = NetAddr::IP::Compact(@$r);
  is(@c, 1, "Results are compactable");
  ok($c[0] eq '10.0.0.0/16', "Correct results");
}

tst();

import NetAddr::IP qw(:old_nth);

tst();

Batal