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 index ea26684bb6c..4b07428759c 100644 --- a/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/StakePools.hs +++ b/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/StakePools.hs @@ -563,6 +563,7 @@ spec = do eventually "eventually shows non-zero rewards" $ do Right pools@[pool1,_pool2,pool3] <- snd <$> listPools ctx let rewards = view (#metrics . #nonMyopicMemberRewards) + print (rewards <$> pools) -- FIXME temporary (rewards <$> pools) `shouldBe` (rewards <$> sortOn (Down . rewards) pools) -- Make sure the rewards are not all equal: @@ -589,7 +590,7 @@ spec = do ] where arbitraryStake :: Maybe Coin - arbitraryStake = Just $ ada 10000 + arbitraryStake = Just $ ada 10000000000 where ada = Coin . (1000*1000*) dummyPool :: PoolId