File: lower.t

package info (click to toggle)
libnetaddr-ip-perl 4.079%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 1,568 kB
  • sloc: perl: 1,417; cpp: 67; makefile: 9
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");