adjust affected stake pools integration tests

cardano-foundation · Apr 23, 2024 · bc651c6 · bc651c6
1 parent 9261b8a
commit bc651c6
Showing 1 changed file with 20 additions and 10 deletions.
diff --git a/lib/integration/scenarios/Test/Integration/Scenario/API/Shelley/StakePools.hs b/lib/integration/scenarios/Test/Integration/Scenario/API/Shelley/StakePools.hs
@@ -577,20 +577,25 @@ spec = describe "SHELLEY_STAKE_POOLS" $ do
 
     it
         "STAKE_POOLS_JOIN_02 - \
-        \Cannot join already joined stake pool"
+        \Cannot join already joined stake pool in Babbage but can in Conway"
         $ \ctx -> runResourceT $ do
             w <- fixtureWallet ctx
             pool : _ <- map (view #id) <$> notRetiringPools ctx
 
             waitForTxStatus ctx w InLedger . getResponse
                 =<< joinStakePool @n ctx (SpecificPool pool) (w, fixturePassphrase)
 
+            let expectedResponse =
+                    if _mainEra ctx >= ApiConway
+                    then
+                        [ expectResponseCode HTTP.status202 ]
+                    else
+                        [ expectResponseCode HTTP.status403
+                        , expectErrorMessage (errMsg403PoolAlreadyJoined $ toText pool)
+                        ]
             joinStakePool @n ctx (SpecificPool pool) (w, fixturePassphrase)
                 >>= flip
-                    verify
-                    [ expectResponseCode HTTP.status403
-                    , expectErrorMessage (errMsg403PoolAlreadyJoined $ toText pool)
-                    ]
+                    verify expectedResponse
 
     it "STAKE_POOLS_JOIN_03 - Cannot join a pool that has retired" $ \ctx -> runResourceT $ do
         waitForEpoch 3 ctx -- One pool retires at epoch 3
@@ -967,14 +972,19 @@ spec = describe "SHELLEY_STAKE_POOLS" $ do
                     verify
                     [expectField #delegation (`shouldBe` deleg)]
 
-            -- Cannot join the same pool
+            -- Cannot join the same pool in Babbage but can in Conway
+            let expectedResponse =
+                    if _mainEra ctx >= ApiConway
+                    then
+                        [ expectResponseCode HTTP.status200 ]
+                    else
+                        [ expectResponseCode HTTP.status403
+                        , expectErrorMessage (errMsg403PoolAlreadyJoined $ toText pool1)
+                        ]
             liftIO
                 $ joinStakePoolUnsigned @n @'Shelley ctx w (ApiT pool1)
                     >>= flip
-                        verify
-                        [ expectResponseCode HTTP.status403
-                        , expectErrorMessage (errMsg403PoolAlreadyJoined (toText pool1))
-                        ]
+                        verify expectedResponse
 
             -- Can join another pool
             liftIO