Imported Upstream version 0.02

t/Net-IP-CMatch.t

@@ -0,0 +1,30 @@
+#!/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" );