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