A variety of small tweaks and fixes. Make mpmont etc. return errors

[u/mdw/catacomb] / tests / ec

diff --git a/tests/ec b/tests/ec
index 1ea76ff..61f78e0 100644 (file)
--- a/tests/ec
+++ b/tests/ec
@@ -1,4 +1,4 @@
-# $Id: ec,v 1.2 2004/03/27 00:04:46 mdw Exp $
+# $Id$
 #
 # Elliptic curve tests
 
@@ -198,6 +198,9 @@ neg {
 }
 
 dbl {
+  "prime: 23 prime: 1, 1" "4, 0" inf;
+  "prime: 23 primeproj: 1, 1" "4, 0" inf;
+
   "prime: 6277101735386680763835789423207666416083908700390324961279
      prime: -3, 0x64210519e59c80e70fa7e9ab72243049feb8deecc146b9b1"
     "0x188da80eb03090f67cbf20eb43a18800f4ff0afd82ff1012,
@@ -236,6 +239,12 @@ dbl {
       0x325f41d0ef702dc310254c42d65851a3b91471ac7"
     "0x1aeb33fed9c49e0200a0c561ea66d5ab85bd4c2d4,
       0x49ed3be7f510e30e2462c517ad39038e493fc573c";
+
+  "binpoly: 0x020000000000000000000000000000200000000000000001
+    bin: 0, 0x1ee9"
+    "0x18, 0xd" 
+    "0x1bd555555555555555555555555554e8000000000000158,
+      0x14e999999999999999999999999998d7000000000001fe6";
 }
 
 add {
@@ -345,6 +354,11 @@ sub {
 }
 
 mul {
+  "prime: 23 prime: 1, 1" "0, 1" 28 inf;
+  "prime: 23 prime: 1, 1" "0, 1" 29 "0, 1";
+  "prime: 23 primeproj: 1, 1" "0, 1" 28 inf;
+  "prime: 23 primeproj: 1, 1" "0, 1" 29 "0, 1";
+
   "prime: 6277101735386680763835789423207666416083908700390324961279
      prime: -3, 0x64210519e59c80e70fa7e9ab72243049feb8deecc146b9b1"
      "0x188da80eb03090f67cbf20eb43a18800f4ff0afd82ff1012,