1#!perl
2
3use strict;
4use warnings;
5use Test::More tests => 6;
6use Net::CIDR::Set;
7
8{
9  eval { Net::CIDR::Set->new( 'foo' ) };
10  like $@, qr{Can't decode}, 'parse error on new';
11}
12
13{
14  my $set = Net::CIDR::Set->new;
15  eval { $set->add( 'foo' ) };
16  like $@, qr{Can't decode}, 'parse error on add';
17  eval { $set->add( '10.0.0.0/8' ) };
18  ok !$@, 'can still parse ipv4';
19  eval { $set->add( '::' ) };
20  like $@, qr{Can't decode}, 'ipv4 personality set';
21}
22
23{
24  my $set = Net::CIDR::Set->new;
25  eval { $set->add( 'foo' ) };
26  like $@, qr{Can't decode}, 'parse error on add';
27  eval { $set->add( '::' ) };
28  ok !$@, 'can still parse ipv6';
29#  eval { $set->add( '10.0.0.0/8' ) };
30#  like $@, qr{Can't decode}, 'ipv6 personality set';
31}
32
33# vim:ts=2:sw=2:et:ft=perl
34
35