diff --git a/lib/core/test/unit/Cardano/Wallet/Primitive/TypesSpec.hs b/lib/core/test/unit/Cardano/Wallet/Primitive/TypesSpec.hs index 5a373d36fdf..e5f87117023 100644 --- 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