1 2use strict; 3use warnings; 4use Test::More tests =>3; 5use Data::Dumper; 6use lib qw(../lib); 7use Net::IP::RangeCompare qw(:ALL); 8our $p='Net::IP::RangeCompare'; 9 10{ 11my $ref=grep_overlap('10/24',[qw(10 10/32 9/24)]); 12my $cmp=join ', ',@$ref; 13ok($cmp eq '10, 10/32','grep_overlap 1'); 14} 15{ 16my $ref=grep_overlap('10/24',[qw(9/24)]); 17my $cmp=join ', ',@$ref; 18ok($cmp eq '','grep_overlap 2'); 19} 20{ 21my $ref=grep_non_overlap('10/24',[qw(10 10/32 9/24)]); 22my $cmp=join ', ',@$ref; 23ok($cmp eq '9/24','grep_non_overlap 1'); 24} 25