[input-output-hk/cardano-sl] [CBR-165] Bug Wallet Balance (#2982)

KtorZ commented on this pull request.

> +import qualified Data.Set as Set
+
+
+spec :: Spec
+spec = do
+ it «No example mnemonic» $
+ fromMnemonic defMnemonic `shouldSatisfy` isLeft
+
+ it «No empty mnemonic» $
+ (fromMnemonic «») `shouldSatisfy` isLeft
+
+ it «No empty entropy» $
+ (toMnemonic «») `shouldSatisfy` isLeft
+
+ modifyMaxSuccess (const 10000) $ prop «toMnemonic >=> fromMnemonic = Right» $
+ (Entropy ent) -> (toMnemonic ent >>= fromMnemonic) == Right ent

:o ! Sweet.

Запись редактировалась последний раз: May 31, 2018, 10:00 am