aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--src/Test/VeriFuzz/CodeGen.hs1
-rw-r--r--src/Test/VeriFuzz/Graph/Random.hs13
-rw-r--r--src/Test/VeriFuzz/Types.hs8
3 files changed, 22 insertions, 0 deletions
diff --git a/src/Test/VeriFuzz/CodeGen.hs b/src/Test/VeriFuzz/CodeGen.hs
new file mode 100644
index 0000000..1872b28
--- /dev/null
+++ b/src/Test/VeriFuzz/CodeGen.hs
@@ -0,0 +1 @@
+module VeriFuzz.CodeGen where
diff --git a/src/Test/VeriFuzz/Graph/Random.hs b/src/Test/VeriFuzz/Graph/Random.hs
new file mode 100644
index 0000000..a0937d0
--- /dev/null
+++ b/src/Test/VeriFuzz/Graph/Random.hs
@@ -0,0 +1,13 @@
+module Test.VeriFuzz.Graph.Random
+ ( randomDAG
+ ) where
+
+import Data.Graph.Inductive
+import Test.QuickCheck
+
+randomDAG :: (Arbitrary a)
+ => GenIO -- ^ The random number generator to use
+ -> Int -- ^ The number of nodes
+ -> IO (Gr (LNode a) e) -- ^ The generated graph. It uses Arbitrary to
+ -- generate random instances of each node
+randomDAG = do
diff --git a/src/Test/VeriFuzz/Types.hs b/src/Test/VeriFuzz/Types.hs
new file mode 100644
index 0000000..9c0de17
--- /dev/null
+++ b/src/Test/VeriFuzz/Types.hs
@@ -0,0 +1,8 @@
+module VeriFuzz.Types where
+
+data Gate = And
+ | Or
+ | Xor
+ | Nor
+ | Nand
+ deriving (Show, Eq, Ord)