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