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