File: lower.t

package info (click to toggle)
libnetaddr-ip-perl 4.062%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 1,236 kB
  • sloc: perl: 1,381; ansic: 67; sh: 48; makefile: 8
file content (11 lines) | stat: -rw-r--r-- 220 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
 

#use diagnostics;
use Test::More tests => 2;

use_ok ('NetAddr::IP', qw(:lower));

my $exp = 'ff:0:0:0:0:0:0:eeaa/128';
my $ip = new NetAddr::IP('FF::eeAA');
my $got = sprintf $ip;
ok ($got eq $exp,"lower case $got");