New test cases for square root functions.

diff --git a/tests/mp b/tests/mp
index de22e67..d12167f 100644 (file)
--- a/tests/mp
+++ b/tests/mp
@@ -1,6 +1,6 @@
 # Test vectors for MP functions
 #
-# $Id: mp,v 1.4 2000/06/17 12:11:08 mdw Exp $
+# $Id: mp,v 1.5 2000/06/22 19:01:14 mdw Exp $
 
 add {
   5 4 9; 5 -4 1; -5 4 -1; -5 -4 -9;
@@ -21,6 +21,31 @@ div {
   9 4 2 1; -9 4 -3 3; 9 -4 -3 -3; -9 -4 2 -1;
 }
 
+odd {
+  1 0 1;
+  2 1 1;
+  4 2 1;
+  12 2 3;
+  0x10000000000000 52 1;
+  0x10000000400000 22 0x40000001;
+}
+
+sqrt {
+  0 0;
+  1 1;
+  4 2;
+  9 3;
+ 16 4;
+ 99 9;
+100 10;
+101 10;
+120 10;
+121 11;
+
+10106623487257186586 3179091613;
+14565040310136678240 3816417208;
+}
+
 gcd {
 
   # --- Simple tests ---
@@ -108,3 +133,15 @@ jacobi {
   15 27 0;
   2132498039840981 98729378979237498798347932749951 1;
 }
+
+modsqrt {
+  4 5 3;
+  9775592058107450692 13391974640168007623 3264570455655810730;
+  8155671698868891620 10189552848261357803 2073812183305821596;
+  3248339460720824413 8976233780911635437 1220523478429582717;
+  3447751741648956439 10155704720805654949 2812971608818169892;
+  1453601744816463433 3095659104519735473 1260511572497628526;
+  3366261317119810224 3756232416311497601 610261287187759737;
+  3869491397135339653 5762828162167967567 2974328005712882420;
+  660864223630638896 1729533840094059799 1058197842375219723;
+}