Add generators and shrinkers for type UTxOSelection.

lib/core/cardano-wallet-core.cabal

@@ -245,6 +245,7 @@ library
       Cardano.Wallet.Primitive.Types.Tx.Gen
       Cardano.Wallet.Primitive.Types.UTxO.Gen
       Cardano.Wallet.Primitive.Types.UTxOIndex.Gen
+      Cardano.Wallet.Primitive.Types.UTxOSelection.Gen
       Cardano.Wallet.Gen
   other-modules:
       Paths_cardano_wallet_core

lib/core/src/Cardano/Wallet/Primitive/Types/UTxOSelection/Gen.hs

@@ -0,0 +1,30 @@
+module Cardano.Wallet.Primitive.Types.UTxOSelection.Gen
+    ( genUTxOSelection
+    , shrinkUTxOSelection
+    )
+    where
+
+import Prelude
+
+import Cardano.Wallet.Primitive.Types.Tx
+    ( TxIn )
+import Cardano.Wallet.Primitive.Types.UTxOIndex.Gen
+    ( genUTxOIndex, shrinkUTxOIndex )
+import Cardano.Wallet.Primitive.Types.UTxOSelection
+    ( UTxOSelection )
+import Test.QuickCheck
+    ( Gen, liftShrink2, shrinkMapBy )
+
+import qualified Cardano.Wallet.Primitive.Types.UTxOSelection as UTxOSelection
+
+genUTxOSelection :: (TxIn -> Bool) -> Gen UTxOSelection
+genUTxOSelection f = UTxOSelection.fromIndexFiltered
+    <$> genUTxOIndex
+    <*> pure f
+
+shrinkUTxOSelection :: UTxOSelection -> [UTxOSelection]
+shrinkUTxOSelection =
+    shrinkMapBy UTxOSelection.fromIndexPair UTxOSelection.toIndexPair $
+        liftShrink2
+            shrinkUTxOIndex
+            shrinkUTxOIndex