Fork: 0
x-way / NetAddr-IP
Transfer to URL with SHA Find file
Newer
Older
NetAddr-IP / t / full6.t
@Michael Robinton Michael Robinton on 21 Oct 2014 721 bytes Import of MIKER/NetAddr-IP-4.020 from CPAN.
Raw Blame History 
  1. use Test::More;
  2.  
  3. # $Id: short.t,v 1.1.1.1 2006/08/14 15:36:06 lem Exp $
  4.  
  5. my %cases =
  6. (
  7.  '127.1'					=> '0000:0000:0000:0000:0000:0000:7f00:0001',
  8.  '123.23.4.210'					=> '0000:0000:0000:0000:0000:0000:7b17:04d2',
  9.  'DEAD:BEEF::1'					=> 'dead:beef:0000:0000:0000:0000:0000:0001',
  10.  '1:2:3:4:5:6:7:8'				=> '0001:0002:0003:0004:0005:0006:0007:0008',
  11.  '1234:5678:90AB:CDEF:0123:4567:890A:BCDE'	=> '1234:5678:90ab:cdef:0123:4567:890a:bcde',
  12. );
  13.  
  14. my $tests = keys %cases;
  15. plan tests => 1 + $tests;
  16.  
  17. SKIP: {
  18.     use_ok('NetAddr::IP') or skip "Failed to load NetAddr::IP", $tests;
  19.     for my $c (sort keys %cases)
  20.     {
  21. 	my $ip = new NetAddr::IP $c;
  22. 	my $rv = lc $ip->full6;
  23. 	is($rv, $cases{$c}, "full6($c ) returns $rv");
  24.     }
  25. }