Make one integration test a little less fragile

cardano-foundation · Sep 27, 2023 · a140b59 · a140b59
1 parent 95128df
commit a140b59
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/lib/wallet/integration/src/Test/Integration/Scenario/API/Shelley/StakePools.hs b/lib/wallet/integration/src/Test/Integration/Scenario/API/Shelley/StakePools.hs
@@ -558,9 +558,10 @@ spec = describe "SHELLEY_STAKE_POOLS" $ do
 
         waitNumberOfEpochBoundaries 2 ctx
 
-        request @ApiWallet ctx (Link.getWallet @'Shelley w) Default Empty
-            >>= flip verify
-            [expectField #delegation (`shouldBe` delegating (ApiT pool2) [])]
+        eventually "Wallet is now delegating to pool2" $ do
+            request @ApiWallet ctx (Link.getWallet @'Shelley w) Default Empty
+                >>= flip verify
+                [expectField #delegation (`shouldBe` delegating (ApiT pool2) [])]
 
     it "STAKE_POOLS_JOIN_04 - Rewards accumulate" $ \ctx -> runResourceT $ do
         w <- fixtureWallet ctx