Fork: 0
x-way / NetAddr-IP
Transfer to URL with SHA Find file
Newer
Older
NetAddr-IP / Lite / t / v4-contains.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 NetAddr::IP::Lite;
  2.  
  3. my @yes_pairs = (
  4. 		 [ [ '127.0.0.0', '255.0.0.0' ], 
  5. 		   [ '127.0.0.1', '255.255.255.255'] ],
  6. 		 [ [ '10.0.0.0', '255.255.255.0' ],
  7. 		   [ '10.0.0.128', '255.255.255.128' ] ],
  8. 		 [ [ '10.0.0.0', '255.0.0.0' ],
  9. 		   [ '10.0.0.0', '255.0.0.0' ]],
  10. 		 [ [ '10.0.0.0', '255.0.0.0' ],
  11. 		   [ '10.0.0.1', '255.0.0.0' ]],
  12. 		 [ [ '10.0.0.0', '255.255.255.254' ],
  13. 		   [ '10.0.0.1', '255.255.255.254' ]],
  14. 		 [ [ '10.0.0.0', '255.255.255.254' ],
  15. 		   [ '10.0.0.1', '255.255.255.255' ]],
  16. 		 [ [ '10.0.0.1', '255.0.0.0' ],
  17. 		   [ '10.0.0.1', '255.255.255.255' ]],
  18. 		 [ [ 'default', 'default' ],
  19. 		   [ '10.0.0.1', '255.255.255.254' ]],
  20. 		 [ [ 'default', 'default' ],
  21. 		   [ 'broadcast', undef ]],
  22. 		 [ [ 'loopback', '255.0.0.0' ],
  23. 		   [ '127.0.0.0', '255.0.0.0' ] ],
  24. 		 );
  25.  
  26. my @no_pairs = (
  27. 		[ [ '127.0.0.1', '255.255.255.255' ],
  28. 		  [ '127.0.0.0', '255.0.0.0' ] ],
  29. 		[ [ '10.0.0.0', '255.0.0.0' ],
  30. 		  [ '11.0.0.0', '255.0.0.0' ] ],
  31. 		[ [ '10.0.1.0', '255.255.255.0' ],
  32. 		  [ '10.0.2.0', '255.255.255.0' ] ],
  33. 		 [ [ '10.0.0.1', '255.255.255.254' ],
  34. 		   [ 'default', '0' ] ],
  35. 		);
  36.  
  37. $| = 1;
  38. print "1..", 2 * (scalar @yes_pairs + scalar @no_pairs), "\n";
  39.  
  40. my $count = 1;
  41.  
  42. for my $p (@yes_pairs) {
  43.     my $ip_a = new NetAddr::IP::Lite $p->[0]->[0], $p->[0]->[1];
  44.     my $ip_b = new NetAddr::IP::Lite $p->[1]->[0], $p->[1]->[1];
  45.     print (($ip_a->contains($ip_b) ? '' : 'not '), 'ok ', $count++, "\n");
  46.     print (($ip_b->within($ip_a) ? '' : 'not '), 'ok ', $count++, "\n");
  47.  
  48. #    print "a = ", $ip_a->addr, "/", $ip_a->mask, "\n";
  49. #    print "b = ", $ip_b->addr, "/", $ip_b->mask, "\n";
  50.  
  51. }
  52.  
  53. for my $p (@no_pairs) {
  54.     my $ip_a = new NetAddr::IP::Lite $p->[0]->[0], $p->[0]->[1];
  55.     my $ip_b = new NetAddr::IP::Lite $p->[1]->[0], $p->[1]->[1];
  56.     print (($ip_a->contains($ip_b) ? 'not ' : ''), 'ok ', $count++, "\n");
  57.     print (($ip_b->within($ip_a) ? 'not ' : ''), 'ok ', $count++, "\n");
  58. }
  59.  
  60.