Add a roundtrip textual encoding test for PoolId.

cardano-foundation · Aug 13, 2020 · b0eb33a · b0eb33a
1 parent e4136cf
commit b0eb33a
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/lib/core/test/unit/Cardano/Wallet/Primitive/TypesSpec.hs b/lib/core/test/unit/Cardano/Wallet/Primitive/TypesSpec.hs
@@ -65,6 +65,7 @@ import Cardano.Wallet.Primitive.Types
     , FeePolicy (..)
     , Hash (..)
     , HistogramBar (..)
+    , PoolId (..)
     , PoolOwner (..)
     , Range (..)
     , RangeBound (..)
@@ -218,6 +219,7 @@ spec = do
         textRoundtrip $ Proxy @(Hash "Block")
         textRoundtrip $ Proxy @(Hash "BlockHeader")
         textRoundtrip $ Proxy @SyncTolerance
+        textRoundtrip $ Proxy @PoolId
         textRoundtrip $ Proxy @PoolOwner
 
         -- Extra hand-crafted tests
@@ -1357,6 +1359,9 @@ instance Arbitrary Word31 where
     arbitrary = arbitrarySizedBoundedIntegral
     shrink = shrinkIntegral
 
+instance Arbitrary PoolId where
+    arbitrary = PoolId . BS.pack <$> vector 32
+
 instance Arbitrary PoolOwner where
     arbitrary = PoolOwner . BS.pack <$> vector 32