----------------------------------------------------------------
--
----------------------------------------------------------------

main :: IO ()
main = do
  g0 <- createSystemRandom
  defaultMain $ testGroup "mwc"
    [ testProperty "save/restore"      $ prop_SeedSaveRestore g0
    , testCase     "user save/restore" $ saveRestoreUserSeed
    , testCase     "empty seed data"   $ emptySeed
    , testCase     "output correct"    $ do
        g  <- create
        xs <- replicateM 513 (uniform g)
        assertEqual "[Word32]" xs golden
    ]
main :: IO ()
main = do
  g0 <- createSystemRandom
  defaultMain $ testGroup "mwc"
    [ testProperty "save/restore"      $ prop_SeedSaveRestore g0
    , testCase     "user save/restore" $ saveRestoreUserSeed
    , testCase     "empty seed data"   $ emptySeed
    , testCase     "output correct"    $ do
        g  <- create
        xs <- replicateM 513 (uniform g)
        assertEqual "[Word32]" xs golden
    ]
main = do
  g0 <- createSystemRandom
  defaultMain $ testGroup "mwc"
    [ testProperty "save/restore"      $ prop_SeedSaveRestore g0
    , testCase     "user save/restore" $ saveRestoreUserSeed
    , testCase     "empty seed data"   $ emptySeed
    , testCase     "output correct"    $ do
        g  <- create
        xs <- replicateM 513 (uniform g)
        assertEqual "[Word32]" xs golden
    ]