diff options
Diffstat (limited to 'test/Property.hs')
-rw-r--r-- | test/Property.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/test/Property.hs b/test/Property.hs index 2c8abc9..3edf5d4 100644 --- a/test/Property.hs +++ b/test/Property.hs @@ -22,9 +22,11 @@ instance QC.Arbitrary TestGraph where instance QC.Arbitrary AltTestGraph where arbitrary = AltTestGraph <$> QC.resize 100 V.randomDAG +simpleGraph :: TestTree simpleGraph = QC.testProperty "simple graph generation check" $ \graph -> simp graph where simp = G.isSimple . getGraph +simpleAltGraph :: TestTree simpleAltGraph = QC.testProperty "simple alternative graph generation check" $ \graph -> simp graph where simp = G.isSimple . getAltGraph |