From c4168753345946cd26a1d6e42d952795a368193c Mon Sep 17 00:00:00 2001
From: Jonathan Knowles <jonathan.knowles@iohk.io>
Date: Mon, 14 Sep 2020 07:55:45 +0000
Subject: [PATCH] Remove unnecessary ordering restriction from
 `prop_listRegisteredPools`.

The `listRegisteredPools` operation doesn't guarantee to list pools in
any particular order, so our property tests also shouldn't require any
particular order.
---
 lib/core/test/unit/Cardano/Pool/DB/Properties.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/core/test/unit/Cardano/Pool/DB/Properties.hs b/lib/core/test/unit/Cardano/Pool/DB/Properties.hs
index 1c4c174c7b3..2226fdaaf1f 100644
--- a/lib/core/test/unit/Cardano/Pool/DB/Properties.hs
+++ b/lib/core/test/unit/Cardano/Pool/DB/Properties.hs
@@ -911,7 +911,7 @@ prop_listRegisteredPools DBLayer {..} entries =
         monitor $ counterexample $ unlines
             [ "Read from DB: " <> show pools
             ]
-        assert (pools == (view #poolId <$> reverse entries))
+        assert (Set.fromList pools == Set.fromList (view #poolId <$> entries))
 
 -- | Test that `listRetiredPools` returns the correct set of retirements for
 --   any given epoch.