Lines Matching refs:Ed25519

6 import qualified Crypto.PubKey.Ed25519 as Ed25519
50 doPublicKeyTest i vec = testCase (show i) (pub @=? Ed25519.toPublic sec)
52         !pub = throwCryptoError $ Ed25519.publicKey (vecPub vec)
53         !sec = throwCryptoError $ Ed25519.secretKey (vecSec vec)
55 doSignatureTest i vec = testCase (show i) (sig @=? Ed25519.sign sec pub (vecMsg vec))
57         !sig = throwCryptoError $ Ed25519.signature (vecSig vec)
58         !pub = throwCryptoError $ Ed25519.publicKey (vecPub vec)
59         !sec = throwCryptoError $ Ed25519.secretKey (vecSec vec)
61 doVerifyTest i vec = testCase (show i) (True @=? Ed25519.verify pub (vecMsg vec) sig)
63         !sig = throwCryptoError $ Ed25519.signature (vecSig vec)
64         !pub = throwCryptoError $ Ed25519.publicKey (vecPub vec)
68     [ testCase  "gen secretkey" (Ed25519.generateSecretKey *> pure ())