Fork: 0
x-way / NetAddr-IP
Transfer to URL with SHA Find file
Newer
Older
NetAddr-IP / Lite / t / mask.t
@Michael Robinton Michael Robinton on 21 Oct 2014 956 bytes Import of MIKER/NetAddr-IP-4.020 from CPAN.
Raw Blame History 
  1.  
  2. #use diagnostics;
  3. use NetAddr::IP::Lite;
  4.  
  5. $| = 1;
  6.  
  7. print "1..4\n";
  8.  
  9. my $test = 1;
  10. sub ok() {
  11.   print 'ok ',$test++,"\n";
  12. }
  13.  
  14. my $loip	= new NetAddr::IP::Lite('::1.2.3.4/120');		# same as 1.2.3.4/24
  15. my $hiip	= new NetAddr::IP::Lite('FF00::1:4/120');
  16. my $dqip	= new NetAddr::IP::Lite('1.2.3.4/24');
  17.  
  18. ## test '""' just for the heck of it
  19. my $exp = 'FF00:0:0:0:0:0:1:4/120';
  20. my $txt = sprintf("%s",$hiip);
  21. print 'got: ',$txt," exp: $exp\nnot "
  22. 	unless $txt eq $exp;
  23. &ok;
  24.  
  25. ## test	lo ip
  26. $exp = 'FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FF00';
  27. my $mask = $loip->mask;
  28. print "got: $mask, exp: $exp\nnot "
  29. 	unless $mask eq $exp && ! ref $mask;
  30. &ok;
  31.  
  32. ## test mask hi
  33. $exp = 'FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FF00';
  34. $mask = $hiip->mask;
  35. print "got: $mask, exp: $exp\nnot "
  36. 	unless $mask eq $exp && ! ref $mask;
  37. &ok;
  38.  
  39. ## test mask dot quad
  40. $exp = '255.255.255.0';
  41. $mask = $dqip->mask;
  42. print "got: $mask, exp: $exp\nnot "
  43.         unless $mask eq $exp && ! ref $mask;
  44. &ok;