1#!perl
2
3use strict;
4use warnings;
5use Test::More tests => 6;
6use Net::CIDR::Set;
7
8{
9  ok my $set = eval { Net::CIDR::Set->new( '2001:0db8:1234::/48' ) },
10   'parsed';
11  ok !$@, 'no error' or diag $@;
12  my @r = $set->as_range_array( 2 );
13  is_deeply [@r],
14   ['2001:db8:1234::-2001:db8:1234:ffff:ffff:ffff:ffff:ffff'], 'range';
15}
16
17{
18  ok my $set = eval {
19    Net::CIDR::Set->new(
20      '2001:10::/28', '2001::/32', '2001:db8::/32', '2002::/16',
21      '::/128',       '::1/128',   '::ffff:0:0/96', 'fc00::/7',
22      'fe80::/10',    'fec0::/10', 'ff00::/8',
23    );
24  }, 'parsed';
25  ok !$@, 'no error' or diag $@;
26  my @r = $set->as_cidr_array( 1 );
27  is_deeply [@r],
28   [
29    '::/127',        '::ffff:0:0/96',
30    '2001::/32',     '2001:10::/28',
31    '2001:db8::/32', '2002::/16',
32    'fc00::/7',      'fe80::/9',
33    'ff00::/8'
34   ],
35   'correct data';
36}
37
38# vim:ts=2:sw=2:et:ft=perl
39