Ticket #7361: Test.hs

File Test.hs, 602 bytes (added by bgamari, 3 years ago)

Slightly more minimal test case

Line 
1import           Control.Monad (replicateM, forM)
2import           Data.Random
3import           System.Random.MWC
4
5newtype Node = Node Int deriving (Show, Eq)
6newtype Item = Item Int deriving (Show, Eq)
7
8withSystemRandomIO :: (GenIO -> IO a) -> IO a
9withSystemRandomIO = withSystemRandom
10
11main = do
12    bs <- withSystemRandomIO $ runRVar $ replicateM 100 $ do node <- randomElement [Node i | i <- [1..100]]
13                                                             item <- randomElement [Item i | i <- [1..100]]
14                                                             return node
15    print bs
16