raaz-0.0.2: spec/Raaz/Core/SystemPRGSpec.hs

module Raaz.Core.SystemPRGSpec where

import Common

spec :: Spec
spec = it "system prg should return different words on distinct calls"
       $ compareWords `shouldReturn` False
  where randomWord :: SystemPRG -> IO Word
        randomWord  = random
        compareWords = do systemPRG <- newPRG ()
                          (==) <$> randomWord systemPRG
                               <*> randomWord systemPRG