File: lower.t

package info (click to toggle)
libnetaddr-ip-perl 4.079%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, stretch
  • size: 1,580 kB
  • ctags: 251
  • sloc: perl: 1,417; cpp: 67; sh: 51; makefile: 9
file content (11 lines) | stat: -rw-r--r-- 232 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
 

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

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

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