31 lines
808 B
Perl
31 lines
808 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use FindBin qw($Bin);
|
||
|
|
|
||
|
|
use Test::More tests => 4;
|
||
|
|
|
||
|
|
################# test 1 (should succeed) #######################
|
||
|
|
BEGIN { use_ok('Net::IP::CMatch') };
|
||
|
|
|
||
|
|
my $match;
|
||
|
|
|
||
|
|
################# test 2 (should fail) #######################
|
||
|
|
|
||
|
|
$match = match_ip( qw( 207.175.219.202 10.0.0.0/8 99.99.99 ) );
|
||
|
|
ok( ! $match, "check non-match" );
|
||
|
|
|
||
|
|
################# test 3 (should succeed) #######################
|
||
|
|
|
||
|
|
$match = match_ip( qw( 207.175.219.202 10.0.0.0/8
|
||
|
|
192.168.0.0/16 207.175.219.200/29 ) );
|
||
|
|
ok( $match, "check match" );
|
||
|
|
|
||
|
|
################# test 4 (should succeed) #######################
|
||
|
|
|
||
|
|
my @ips = split / /, '10.0.0.0/8 192.168.0.0/16 207.175.219.200/29';
|
||
|
|
$match = match_ip( "'207.175.219.202xxx'", @ips );
|
||
|
|
ok( $match, "check another match" );
|