yogsototh/hs-tls
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

adapt tests to new crypto-random

Browse source
This commit is contained in:
Vincent Hanquez 2013-09-18 07:20:28 +01:00
parent bc8c7ce667
commit 5b13cfe38a
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
core/Tests/PubKey.hs
View file

@ -6,6 +6,7 @@ module PubKey
import Test.QuickCheck
import Crypto.Random (createTestEntropyPool)
import qualified Crypto.Random.AESCtr as RNG
import qualified Crypto.PubKey.RSA as RSA
@ -16,7 +17,7 @@ import System.IO.Unsafe
arbitraryRSAPair :: Gen (RSA.PublicKey, RSA.PrivateKey)
arbitraryRSAPair = do
rng <- (maybe (error "making rng") id . RNG.make . B.pack) `fmap` vector 64
rng <- (RNG.make . createTestEntropyPool . B.pack) `fmap` vector 64
arbitraryRSAPairWithRNG rng
arbitraryRSAPairWithRNG rng = return $ fst $ RSA.generate rng 128 0x10001