Fork: 0
x-way / NetAddr-IP
Transfer to URL with SHA Find file
Newer
Older
NetAddr-IP / Lite / Util / t / sub128.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. # Before `make install' is performed this script should be runnable with
  2. # `make test'. After `make install' it should work as `perl test.pl'
  3.  
  4. ######################### We start with some black magic to print on failure.
  5. # Change 1..1 below to 1..last_test_to_print .
  6. # (It may become useful if the test is moved to ./t subdirectory.)
  7.  
  8. BEGIN { $| = 1; print "1..34\n"; }
  9. END {print "not ok 1\n" unless $loaded;}
  10.  
  11. use NetAddr::IP::Util qw(
  12. 	sub128
  13. 	ipv6_aton
  14. 	ipv6_n2x
  15. );
  16.  
  17. $loaded = 1;
  18. print "ok 1\n";
  19. ######################### End of black magic.
  20.  
  21. # Insert your test code below (better if it prints "ok 13"
  22. # (correspondingly "not ok 13") depending on the success of chunk 13
  23. # of the test code):
  24.  
  25. $test = 2;
  26.  
  27. sub ok {
  28.   print "ok $test\n";
  29.   ++$test;
  30. }
  31. my @num = # 	number			minus	  carry (not borrow)	exp
  32. qw(
  33. 	::f712:fff:fffe		::f712:fff:fffc		1	0:0:0:0:0:0:0:2
  34. 	::712:fff:fffe		::712:fff:fffc		1	0:0:0:0:0:0:0:2
  35. 	::712:ffff:fffe		::712:ffff:fffc		1	0:0:0:0:0:0:0:2
  36. 	::f712:ffff:fffa	::f712:ffff:fffc	0	FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE
  37. 	::f712:fff:fffa		::f712:fff:fffc		0	FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE
  38. 	::712:fff:fffa		::712:fff:fffc		0	FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE
  39. 	::712:ffff:fffa		::712:ffff:fffc		0	FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE
  40. 	::2			::1			1	0:0:0:0:0:0:0:1
  41. 	::f712:ffff:fffe	::f712:ffff:fffc	1	0:0:0:0:0:0:0:2
  42. 	::1			::3			0	FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE
  43. 	::1234			::1234			1	0:0:0:0:0:0:0:0
  44. );
  45. ## test 2	check comp of zero
  46.  
  47. for (my $i=0; $i<@num; $i+=4) {
  48.   my $num = ipv6_aton($num[$i]);
  49.   my $minus = ipv6_aton($num[$i +1]);
  50.   my $rv = sub128($num,$minus);
  51.   print "got: $rv, exp: $num[$i +2]\nnot "
  52. 	unless $rv == $num[$i +2];
  53.   &ok;
  54. }
  55.  
  56. for (my $i=0; $i<@num; $i+=4) {
  57.   my $num = ipv6_aton($num[$i]);
  58.   my $minus = ipv6_aton($num[$i +1]);
  59.   my($rv,$dif) = sub128($num,$minus);
  60.   print "got: $rv, exp: $num[$i +2]\nnot "
  61. 	unless $rv == $num[$i +2];
  62.   &ok;
  63.   $dif = ipv6_n2x($dif);
  64.   print "got: $dif\nexp: $num[$i +3]\nnot "
  65. 	unless $dif eq $num[$i +3];
  66.   &ok;
  67. }
  68.