1 files changed, 13 insertions, 0 deletions
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