Merge pull request #432 from input-output-hk/SCP-4941

Fixed bug where WalletContext was missing assets
input-output-hk · Jan 24, 2023 · 232d911 · 232d911
2 parents 3d7d638 + a2c0322
commit 232d911
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/marlowe-runtime/test/Language/Marlowe/Runtime/Transaction/ConstraintsSpec.hs b/marlowe-runtime/test/Language/Marlowe/Runtime/Transaction/ConstraintsSpec.hs
@@ -491,8 +491,7 @@ spec = do
 genWalletWithNuisance :: MarloweVersion v -> TxConstraints v -> Word64 -> Gen WalletContext
 genWalletWithNuisance marloweVersion' constraints' minLovelace = do
   wc <- genWalletContext marloweVersion' constraints'
-  adaTxOutRef <- arbitrary
-  nuisTxOutRef <- arbitrary
+  (adaTxOutRef, nuisTxOutRef) <- suchThat ((,) <$> arbitrary <*> arbitrary) (uncurry (/=))
   someAddress <- arbitrary
   let lovelaceToAdd = Chain.Assets (Chain.Lovelace minLovelace) (Chain.Tokens Map.empty)
   nuisAssets <- (lovelaceToAdd <>) <$> arbitrary