Fork: 0
x-way / NetAddr-IP
Transfer to URL with SHA Find file
Newer
Older
NetAddr-IP / Lite / t / v4-snew.t
@Luis Muñoz Luis Muñoz on 21 Oct 2014 1 KB Import of LUISMUNOZ/NetAddr-IP-4.001 from CPAN.
Raw Blame History 
  1. use Test::More;
  2. use NetAddr::IP::Lite;
  3.  
  4. my %w = ('broadcast'	=> [ '255.255.255.255', '255.255.255.255' ],
  5. 	 'default'	=> [ '0.0.0.0', '0.0.0.0' ],
  6. 	 'loopback'	=> [ '127.0.0.1', '255.0.0.0' ],
  7. 	 '10.'		=> [ '10.0.0.0', '255.0.0.0' ],
  8. 	 '10/8'		=> [ '10.0.0.0', '255.0.0.0' ],
  9. 	 '127/8'	=> [ '127.0.0.0', '255.0.0.0' ],
  10. 	 '11.11.'	=> [ '11.11.0.0', '255.255.0.0' ],
  11. 	 '12.12.12.'	=> [ '12.12.12.0', '255.255.255.0' ],
  12. 	 '13.13.13.13'	=> [ '13.13.13.13', '255.255.255.255' ],
  13. 	 '0-127'	=> [ '0.0.0.0', '128.0.0.0' ],
  14. 	 '128-255'	=> [ '128.0.0.0', '128.0.0.0' ],
  15. 	 '0-63'		=> [ '0.0.0.0', '192.0.0.0' ],
  16. 	 '128-191'	=> [ '128.0.0.0', '192.0.0.0' ],
  17. 	 '10.128.0-127'	=> [ '10.128.0.0', '255.255.128.0' ],
  18. 	 '10.10.10/24'	=> [ '10.10.10.0', '255.255.255.0' ],
  19. 	 '10.10/16'	=> [ '10.10.0.0', '255.255.0.0' ],
  20. 	 '10.10.10'	=> [ '10.10.0.10', '255.255.255.255' ],
  21. 	 );
  22.  
  23. plan tests => 2 * scalar keys %w;
  24.  
  25. for my $a (keys %w) {
  26.     my $ip = new NetAddr::IP::Lite $a;
  27.     is($ip->addr, $w{$a}->[0], "Matching ->addr()");
  28.     is($ip->mask, $w{$a}->[1], "Matching ->mask()");
  29. }