1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
#!/usr/bin/env perl
# Copyright (C) 2003-2010, Sebastian Riedel.
use strict;
use warnings;
use Test::Simple tests => 4;
use Net::Subnets;
my @subnets = qw(10.0.0.0/24 10.0.1.0/24);
my @good_addr = qw(10.0.0.1 10.0.1.2);
my @bad_addr = qw(10.0.3.4 20.0.0.1);
my $sn = Net::Subnets->new;
$sn->subnets(\@subnets);
foreach my $addr (@good_addr) {
ok($sn->check(\$addr), 'address is good');
}
foreach my $addr (@bad_addr) {
ok(!$sn->check(\$addr), 'address is bad');
}
|
