[libmath-prime-util-perl] 97/181: Add Kronecker tests

[Partha P. Mukherjee]

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

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

commit f4899e189cb35faf40057dee53631f7a53ba1584
Author: Dana Jacobsen <dana at acm.org>
Date:   Thu Jan 2 01:22:10 2014 -0800

    Add Kronecker tests
---
 t/19-moebius.t | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/t/19-moebius.t b/t/19-moebius.t
index 64a3ee4..e63ca5c 100644
--- a/t/19-moebius.t
+++ b/t/19-moebius.t
@@ -238,7 +238,22 @@ my @kroneckers = (
   [-2, 0, 0],  [-1, 0, 1],  [ 0, 0, 0],  [ 1, 0, 1],  [ 2, 0, 0],
   [-2, 1, 1],  [-1, 1, 1],  [ 0, 1, 1],  [ 1, 1, 1],  [ 2, 1, 1],
   [-2,-1,-1],  [-1,-1,-1],  [ 0,-1, 1],  [ 1,-1, 1],  [ 2,-1, 1],
+  # Some cases trying to make sure we're not turning UVs into IVs
+  [ 3686556869,  428192857,  1],
+  [-1453096827,  364435739, -1],
+  [ 3527710253, -306243569, 1],
+  [-1843526669, -332265377, 1],
+  [  321781679, 4095783323, -1],
+  [  454249403,  -79475159, -1],
 );
+if ($use64) {
+  push @kroneckers, [17483840153492293897, 455592493, 1];
+  push @kroneckers, [-1402663995299718225, 391125073, 1];
+  push @kroneckers, [16715440823750591903, -534621209, -1];
+  push @kroneckers, [13106964391619451641,16744199040925208803, 1];
+  push @kroneckers, [11172354269896048081,10442187294190042188,-1];
+  push @kroneckers, [-5694706465843977004,9365273357682496999,-1];
+}
 
 # These are slow with XS, and *really* slow with PP.
 if (!$usexs) {

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