Update integration test WALLETS_COIN_SELECTION_02.

Update integration test `WALLETS_COIN_SELECTION_02` to check that the set of coin selection outputs is exactly the same as intially provided, rather than being a subset.
cardano-foundation · Oct 19, 2020 · 4b63945 · 4b63945
1 parent c6b0f9c
commit 4b63945
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 5 deletions.
diff --git a/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/Wallets.hs b/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/Wallets.hs
@@ -946,7 +946,6 @@ spec = describe "SHELLEY_WALLETS" $ do
                     (`shouldBe` (output :| []))
                 ]
 
-    let satisfy = flip shouldSatisfy
     it "WALLETS_COIN_SELECTION_02 - \
         \Multiple payments are all included in the coin selection output." $
         \ctx -> do
@@ -967,9 +966,7 @@ spec = describe "SHELLEY_WALLETS" $ do
                 , expectField
                     #inputs (`shouldSatisfy` (not . null))
                 , expectField
-                    #outputs (satisfy $ (> paymentCount) . length)
-                , expectField
-                    #outputs (satisfy $ flip all outputs . flip elem)
+                    #outputs (`shouldSatisfy` ((NE.sort outputs ==) . NE.sort))
                 ]
 
     it "WALLETS_COIN_SELECTION_03 - \

diff --git a/lib/core/src/Cardano/Wallet/Api/Types.hs b/lib/core/src/Cardano/Wallet/Api/Types.hs
@@ -434,7 +434,7 @@ data ApiCoinSelectionInput (n :: NetworkDiscriminant) = ApiCoinSelectionInput
 data ApiCoinSelectionOutput (n :: NetworkDiscriminant) = ApiCoinSelectionOutput
     { address :: !(ApiT Address, Proxy n)
     , amount :: !(Quantity "lovelace" Natural)
-    } deriving (Eq, Generic, Show)
+    } deriving (Eq, Ord, Generic, Show)
 
 data ApiWallet = ApiWallet
     { id :: !(ApiT WalletId)