[libmath-prime-util-perl] 18/59: Test euler_phi for small values

[Partha P. Mukherjee]

This is an automated email from the git hooks/post-receive script.

ppm-guest pushed a commit to annotated tag v0.10
in repository libmath-prime-util-perl.

commit a940cb01b42ee60ed645e5dd91a746e86b29b4d5
Author: Dana Jacobsen <dana at acm.org>
Date:   Sun Jul 1 11:07:17 2012 -0600

    Test euler_phi for small values
---
 t/19-moebius.t | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/t/19-moebius.t b/t/19-moebius.t
index 9ab422c..0500d35 100644
--- a/t/19-moebius.t
+++ b/t/19-moebius.t
@@ -22,14 +22,12 @@ my %mertens = (
 );
 
 my %totients = (
-          1 => 1,
-          2 => 1,
-         20 => 8,
-         36 => 12,
      123456 => 41088, 
      123457 => 123456,
   123456789 => 82260072,
 );
+my @A000010 = (0,1,1,2,2,4,2,6,4,6,4,10,4,12,6,8,8,16,6,18,8,12,10,22,8,20,12,18,12,28,8,30,16,20,16,24,12,36,18,24,16,40,12,42,20,24,22,46,16,42,20,32,24,52,18,40,24,36,28,58,16,60,30,36,32,48,20,66,32,44);
+ at totients{0..$#A000010} = @A000010;
 
 plan tests => 0 + 1
                 + scalar @moeb_vals

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmath-prime-util-perl.git