diff options
Diffstat (limited to 'tests/Property.hs')
-rw-r--r-- | tests/Property.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/Property.hs b/tests/Property.hs index 88330bd..55b7f31 100644 --- a/tests/Property.hs +++ b/tests/Property.hs @@ -9,7 +9,7 @@ newtype TestGraph = TestGraph { getGraph :: Gr Gate () } deriving (Show) instance QC.Arbitrary TestGraph where - arbitrary = TestGraph <$> randomDAG 100 + arbitrary = TestGraph <$> randomDAG 30 simpleGraph = QC.testProperty "simple graph generation" $ \graph -> simp (graph :: TestGraph) |