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 5e9084d916b..1b7ce6f7865 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 @@ -240,6 +240,7 @@ spec = describe "SHELLEY_STAKE_POOLS" $ do , expectField (#status . #getApiT) (`shouldBe` InLedger) , expectField (#direction . #getApiT) (`shouldBe` Outgoing) , expectField #depositTaken (`shouldBe` Quantity 1000000) + , expectField #depositReturned (`shouldBe` Quantity 0) ] let txId = getFromResponse #id rJoin @@ -414,6 +415,8 @@ spec = describe "SHELLEY_STAKE_POOLS" $ do #amount (`shouldBe` quitFeeAmt) , expectField (#status . #getApiT) (`shouldBe` InLedger) + , expectField #depositTaken (`shouldBe` Quantity 0) + , expectField #depositReturned (`shouldBe` Quantity 1000000) ] let epl = Link.listTransactions @'Shelley src diff --git a/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/TransactionsNew.hs b/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/TransactionsNew.hs index 7326ed28a4a..1425628304e 100644 --- a/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/TransactionsNew.hs +++ b/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/TransactionsNew.hs @@ -2434,6 +2434,14 @@ spec = describe "NEW_SHELLEY_TRANSACTIONS" $ do [ expectField #delegation (`shouldBe` notDelegating []) ] + -- transaction history shows deposit returned + rGetTx4 <- request @(ApiTransaction n) ctx queryTx3 Default Empty + verify rGetTx4 + [ expectResponseCode HTTP.status200 + , expectField #depositTaken (`shouldBe` Quantity 0) + , expectField #depositReturned (`shouldBe` depositAmt) + ] + it "TRANS_NEW_JOIN_01b - Invalid pool id" $ \ctx -> runResourceT $ do wa <- fixtureWallet ctx