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

[u/mdw/catacomb] / tests / mp

diff --git a/tests/mp b/tests/mp
index 34f16f8..c8be382 100644 (file)
--- a/tests/mp
+++ b/tests/mp
@@ -1,6 +1,6 @@
 # Test vectors for MP functions
 #
-# $Id: mp,v 1.17 2004/04/01 12:50:41 mdw Exp $
+# $Id$
 
 add {
   5 4 9; 5 -4 1; -5 4 -1; -5 -4 -9;
@@ -32,6 +32,13 @@ div {
   2 1;
 }
 
+exp {
+  4 0 1;
+  4 1 4;
+  7 2 49;
+  3 564 124849745640593184256214502788000232711984346194239284918599169775251467106591187580476305077269760425019686159071753053924227569816588462643229463821875763427430576080998505780547826368760514503807579784278708008217584939464444237989070811887584423210788916656247499281;
+}
+
 bin2c {
   and 5 3 1;
   or 5 3 7;