add temporary log trace for debugging STAKE_POOLS_LIST_01

cardano-foundation · Jul 3, 2020 · 148e370 · 148e370
1 parent dbbc405
commit 148e370
Showing 1 changed file with 2 additions and 1 deletion.
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
@@ -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