X-Git-Url: https://git.distorted.org.uk/u/mdw/catacomb/blobdiff_plain/ceb3f0c0a3b7bb3fa3250d31b04c382894095e52..45c0fd363937c6e9b05da04a9167e9912c05ca0c:/tests/gf

diff --git a/tests/gf b/tests/gf
index 0c3987f..88d94cd 100644
--- a/tests/gf
+++ b/tests/gf
@@ -1,4 +1,4 @@
-# $Id: gf,v 1.1.2.1 2004/03/21 22:39:46 mdw Exp $
+# $Id$
 #
 # Test cases for higher-level binary poly arithmetic.
 
@@ -11,7 +11,7 @@ add {
     0xc1a7bd3b4e853fc92d4e1588719986aa
     0xbe1f8593ee2c6f8f9497cc7335d97111;
   0x1e2933215e1c3bba8d2b404d98f43086bfc6198a219b168f214042a5e7df6b21
-    0x1e2933215e1c3bba8d2b404d98f43086bfc6198a219b168f214042a5e7df6b22 3;  
+    0x1e2933215e1c3bba8d2b404d98f43086bfc6198a219b168f214042a5e7df6b22 3;
 }
 
 mul {
@@ -51,6 +51,22 @@ div {
     0x398c4111da6d06cdf3d83704ee403101;
 }
 
+exp {
+  4 0 1;
+  4 1 4;
+  0x7 2 0x15;
+  3 563 0xf000f000f000f0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000f000f000f000f;
+}
+
+irred {
+  0 0;
+  1 0;
+  2 1;
+  0xc1a7bd3b4e853fc92d4e1588719986aa 0;
+  0x800000000000000000000000000000000000000c9 1;
+  0x2000000000000000000000000000000000000000000000000000000000000000000000000000000008000000000000000000001 1;
+}
+
 gcd {
   0xc1a7bd3b4e853fc92d4e1588719986aa
     0xbe1f8593ee2c6f8f9497cc7335d97111
@@ -63,6 +79,11 @@ gcd {
     0x35a8e33503b3695be00528f8b82db931
     0x283ed59f1226dcefa7ff0ef87ceff5d5;
   0x800000000000000000000000000000000000000c9
+    4
+    1
+    1
+    0x20000000000000000000000000000000000000032;
+  0x800000000000000000000000000000000000000c9
     0x3f0eba16286a2d57ea0991168d4994637e8343e36
     1
     0xa17e704470d80cb5a78f295db0ce543dda16a169