Example of a failing test

IntersectMBO · Oct 19, 2020 · 9c51813 · 9c51813
1 parent 33d93be
commit 9c51813
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/plutus-use-cases/src/Language/PlutusTx/Coordination/Contracts/Prism.hs b/plutus-use-cases/src/Language/PlutusTx/Coordination/Contracts/Prism.hs
@@ -110,6 +110,7 @@ contract ::
     Contract PrismSchema PrismError ()
 contract = do
     r <- mapError EPError $ endpoint @"role"
+    logInfo r
     case r of
         CredMan        -> mapError CredManErr credentialManager
         Mirror         -> mapError MirrorErr mirror

diff --git a/plutus-use-cases/test/Spec/Prism.hs b/plutus-use-cases/test/Spec/Prism.hs
@@ -63,6 +63,7 @@ tests = testGroup "PRISM"
     [ checkPredicate "withdraw"
         contract
         (assertDone user (const True) ""
+        /\ emulatorLog (const False) ""
         /\ walletFundsChange issuer (Ada.lovelaceValueOf numTokens)
         /\ walletFundsChange user (Ada.lovelaceValueOf (negate numTokens) <> STO.coins stoData numTokens)
         )