Start generating RSA test cases as part of the normal infrastructure.

2019-03-01 20:44:33 -08:00
parent 15ec3c5c9b
commit bf13f4a1e6
20 changed files with 13279 additions and 124 deletions
--- a/test-generator/Database.hs
+++ b/test-generator/Database.hs
@@ -27,7 +27,7 @@ generateNum (db, rng0) varname size =

 genSign :: (Integer, Database) -> (Integer, Database)
 genSign (x, (db, rng0)) =
-  let (n, rng1) = randomBytesGenerate 0 rng0
+  let (n, rng1) = randomBytesGenerate 1 rng0
      n' = integerize n 
  in if testBit n' 0 then (0 - x, (db, rng1)) else (x, (db, rng1))