Improve error message on failed assertion

input-output-hk · Jun 22, 2022 · 139da3a · 139da3a
1 parent b305048
commit 139da3a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/hydra-node/test/Hydra/ModelSpec.hs b/hydra-node/test/Hydra/ModelSpec.hs
@@ -92,8 +92,8 @@ prop_checkModel (AnyActions actions) =
                 counterexample $
                   toString $
                     unlines
-                      [ "Actual committed:   " <> show actualCommitted
-                      , "Expected committed: " <> show commits
+                      [ "Actual committed: (" <> show p <> ") " <> show actualCommitted
+                      , "Expected committed: (" <> show p <> ") " <> show commits
                       ]
               assert (actualCommitted == commits)
             _ -> do