diff options
-rw-r--r-- | src/Test/VeriFuzz/CodeGen.hs | 1 | ||||
-rw-r--r-- | src/Test/VeriFuzz/Graph/Random.hs | 13 | ||||
-rw-r--r-- | src/Test/VeriFuzz/Types.hs | 8 |
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) |