File Coverage

t/lower.t
Criterion Covered Total %
statement n/a
branch n/a
condition n/a
subroutine n/a
pod n/a
total n/a


line stmt bran cond sub pod time code
1              
2             #use diagnostics;
3             use Test::More tests => 2;
4              
5             use_ok ('NetAddr::IP', qw(:lower));
6              
7             my $exp = 'ff:0:0:0:0:0:0:eeaa/128';
8             my $ip = new NetAddr::IP('FF::eeAA');
9             my $got = sprintf $ip;
10             ok ($got eq $exp,"lower case $got");
11