remove withSystemRandom

haskell-igraph.cabal

 name:                haskell-igraph
-version:             0.7.1
+version:             0.7.1.1
 synopsis:            Haskell interface of the igraph library.
 description:         igraph<"http://igraph.org/c/"> is a library for creating
                      and manipulating large graphs. This package provides the Haskell

src/IGraph/Random.hs

 module IGraph.Random
     ( Gen
-    , withSystemRandom
     , withSeed
     ) where
 
@@ -9,9 +8,11 @@ import IGraph.Internal
 -- | Random number generator
 data Gen = Gen
 
+{-
 withSystemRandom :: (Gen -> IO a) -> IO a
 withSystemRandom fun = fun Gen
 {-# INLINE withSystemRandom #-}
+-}
 
 withSeed :: Int -> (Gen -> IO a) -> IO a
 withSeed seed fun = allocaRng $ \rng -> do

tests/Test/Algorithms.hs

@@ -73,7 +73,7 @@ decomposeTest = testGroup "Decompose"
     [ testCase "ring" $ edges (head $ decompose $ ring 10) @?=
         [(0,1), (1,2), (2,3), (3,4), (4,5), (5,6), (6,7), (7,8), (8,9), (0,9)]
     , testCase "1 component" $ do
-        gr <- (withSystemRandom $ erdosRenyiGame (GNP 100 (40/100)) False) :: IO (Graph 'U () ())
+        gr <- (withSeed 1244 $ erdosRenyiGame (GNP 100 (40/100)) False) :: IO (Graph 'U () ())
         1 @?= length (decompose gr)
     , testCase "toy example" $ map (sort . edges) (decompose gr) @?=
         [ [(0,1), (0,2), (1,2)]

tests/Test/Basic.hs

@@ -88,11 +88,15 @@ nonSimpleGraphTest = testGroup "loops, multiple edges"
 
 randomGeneratorTest :: TestTree
 randomGeneratorTest = testGroup "random generator"
-    [ t1 ]
+    [t1 , t2]
   where
     t1 = testCase "random graph" $ do
         gr1 <- sort . edges <$> genGr 1244
         gr2 <- sort . edges <$> genGr 1244
         gr1 @=? gr2
+    t2 = testCase "random graph" $ do
+        gr1 <- sort . edges <$> genGr 145
+        gr2 <- sort . edges <$> genGr 24
+        assertBool "" $ gr1 /= gr2
     genGr :: Int -> IO (Graph 'D () ())
-    genGr seed = withSeed seed $ erdosRenyiGame (GNP 1000 0.5) False
+    genGr seed = withSeed seed $ erdosRenyiGame (GNP 500 0.5) False