Add a mockSigned function to produce mock signatures.

IntersectMBO · Nov 12, 2019 · 03f7b28 · 03f7b28
1 parent 47b8562
commit 03f7b28
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/cardano-crypto-class/src/Cardano/Crypto/DSIGN/Mock.hs b/cardano-crypto-class/src/Cardano/Crypto/DSIGN/Mock.hs
@@ -15,6 +15,7 @@ module Cardano.Crypto.DSIGN.Mock
   , SigDSIGN (..)
   , verKeyIdFromSigned
   , mockSign
+  , mockSigned
   )
 where
 
@@ -87,6 +88,9 @@ data VerificationFailure
 mockSign :: ToCBOR a => a -> SignKeyDSIGN MockDSIGN -> SigDSIGN MockDSIGN
 mockSign a (SignKeyMockDSIGN n) = SigMockDSIGN (getHash $ hash @ShortHash a) n
 
+mockSigned :: ToCBOR a => a -> SignKeyDSIGN MockDSIGN -> SignedDSIGN MockDSIGN a
+mockSigned a k = SignedDSIGN (mockSign a k)
+
 instance ToCBOR (SigDSIGN MockDSIGN) where
   toCBOR (SigMockDSIGN b i) = encodeListLen 2 <> toCBOR b <> toCBOR i