Use assertWith in prop_rollbackRetirement.

cardano-foundation · Aug 13, 2020 · cd28a2f · cd28a2f
1 parent b872838
commit cd28a2f
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/lib/core/test/unit/Cardano/Pool/DB/Properties.hs b/lib/core/test/unit/Cardano/Pool/DB/Properties.hs
@@ -760,9 +760,10 @@ prop_rollbackRetirement DBLayer{..} certificates =
             , "\nRetrieved certificate publications: "
             , unlines (("\n" <>) . show <$> retrievedPublications)
             ]
-        assert $ (==)
-            retrievedPublications
-            expectedPublications
+        assertWith "retrieved publications match expectations" $
+            (==)
+                retrievedPublications
+                expectedPublications
 
     poolIds :: [PoolId]
     poolIds = view #poolId <$> certificates