Preliminary support for generating test vectors.

2019-08-15 20:24:04 -07:00
parent f4a3cf69ad
commit 4ae957aac6
7 changed files with 34 additions and 26 deletions
--- a/generation/src/Base.hs
+++ b/generation/src/Base.hs
@@ -11,7 +11,8 @@ base :: File
 base = File {
  predicate = \ _ _ -> True,
  outputName = "base",
-  generator = declareBaseStructure
+  generator = declareBaseStructure,
+  testGenerator = Nothing
 }

 declareBaseStructure :: Word -> Gen ()