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