Skip to content

Commit

Permalink
Compare change of results modulo Coin 0
Browse files Browse the repository at this point in the history
  • Loading branch information
paweljakubas committed Apr 16, 2019
1 parent 356d7f8 commit 4b1d41f
Showing 1 changed file with 3 additions and 1 deletion.
4 changes: 3 additions & 1 deletion test/unit/Cardano/Wallet/CoinSelectionSpec.hs
Original file line number Diff line number Diff line change
Expand Up @@ -297,8 +297,10 @@ propSameSelection (FeePropArguments (CoinSelectionPropArguments (utxo, txOuts))
where
prop coinSel = do
let feeOpt = feeOptions 0 0
let coinSelWithoutZeros =
CoinSelection (inputs coinSel) (outputs coinSel) (filter (/= Coin 0) $ change coinSel)
runExceptT (adjustForFees feeOpt utxo' coinSel) `shouldReturn`
(Right coinSel)
(Right coinSelWithoutZeros)
selection = runIdentity $ runExceptT $
largestFirst (CoinSelectionOptions 100) utxo txOuts

Expand Down

0 comments on commit 4b1d41f

Please sign in to comment.