mp-gcd: Add tests for mp_modinv.

Just noticed there aren't any.  Naughty me.

diff --git a/mp-gcd.c b/mp-gcd.c
index d997072..5312400 100644 (file)
--- a/mp-gcd.c
+++ b/mp-gcd.c
@@ -254,6 +254,27 @@ mp *mp_modinv(mp *d, mp *x, mp *p)
 
 #ifdef TEST_RIG
 
+static int modinv(dstr *v)
+{
+  int ok = 1;
+  mp *x = *(mp **)v[0].buf;
+  mp *m = *(mp **)v[1].buf;
+  mp *r = *(mp **)v[2].buf;
+
+  mp *y = mp_modinv(MP_NEW, x, m);
+  if (!MP_EQ(y, r)) {
+    fputs("\n*** mp_modinv failed", stderr);
+    fputs("\nx      = ", stderr); mp_writefile(x, stderr, 10);
+    fputs("\nm      = ", stderr); mp_writefile(m, stderr, 10);
+    fputs("\nexpect = ", stderr); mp_writefile(r, stderr, 10);
+    fputs("\nresult = ", stderr); mp_writefile(y, stderr, 10);
+    ok = 0;
+  }
+  MP_DROP(x); MP_DROP(m); MP_DROP(r); MP_DROP(y);
+  assert(mparena_count(MPARENA_GLOBAL) == 0);
+  return (ok);  
+}
+
 static int gcd(dstr *v)
 {
   int ok = 1;
@@ -311,6 +332,7 @@ static int gcd(dstr *v)
 
 static test_chunk tests[] = {
   { "gcd", gcd, { &type_mp, &type_mp, &type_mp, &type_mp, &type_mp, 0 } },
+  { "modinv", modinv, { &type_mp, &type_mp, &type_mp, 0 } },
   { 0, 0, { 0 } }
 };
 

diff --git a/tests/mp b/tests/mp
index c8be382..e232f62 100644 (file)
--- a/tests/mp
+++ b/tests/mp
@@ -197,6 +197,12 @@ gcd {
   1;
 }
 
+modinv {
+  5 9 2;
+  15 64 47;
+  564566436 546457643 408896426;
+}
+
 jacobi {
   4 5 1;
   6 7 -1;