compare a list of _rewards_ and not a list of pools to make the order…

… somewhat stable
cardano-foundation · Jul 3, 2020 · fae4919 · fae4919
1 parent 02f6166
commit fae4919
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/StakePools.hs b/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/StakePools.hs
@@ -549,7 +549,8 @@ spec = do
             eventually "eventually shows non-zero rewards" $ do
                 Right pools@[pool1,_pool2,pool3] <- snd <$> listPools ctx
                 let rewards = view (#metrics . #nonMyopicMemberRewards)
-                pools `shouldBe` sortOn (Down . rewards) pools
+                (rewards <$> pools) `shouldBe`
+                    (rewards <$> sortOn (Down . rewards) pools)
                 -- Make sure the rewards are not all equal:
                 rewards pool1 .> rewards pool3
 

diff --git a/lib/shelley/src/Cardano/Wallet/Shelley/Launch.hs b/lib/shelley/src/Cardano/Wallet/Shelley/Launch.hs
@@ -1095,7 +1095,7 @@ cartouche = T.unlines
     , "#                                                                              #"
     , "#        Cluster is booting. Stake pools are being registered on chain.        #"
     , "#                                                                              #"
-    , "#        This may take roughly 30s, after what pools will become active        #"
+    , "#        This may take roughly 60s, after what pools will become active        #"
     , "#        and will start producing blocks. Please be patient...                 #"
     , "#                                                                              #"
     , "#  ⚠                           DISCLAIMER                                   ⚠  #"