From 92ed40c9e6cb441c36ee683e9f016b3a125a8ab8 Mon Sep 17 00:00:00 2001 From: Pawel Jakubas Date: Wed, 17 May 2023 13:00:53 +0200 Subject: [PATCH] quit in integration test - part 1 --- .../Scenario/API/Shared/Transactions.hs | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/lib/wallet/integration/src/Test/Integration/Scenario/API/Shared/Transactions.hs b/lib/wallet/integration/src/Test/Integration/Scenario/API/Shared/Transactions.hs index d7cdc92a611..02e791eb47a 100644 --- a/lib/wallet/integration/src/Test/Integration/Scenario/API/Shared/Transactions.hs +++ b/lib/wallet/integration/src/Test/Integration/Scenario/API/Shared/Transactions.hs @@ -2175,6 +2175,22 @@ spec = describe "SHARED_TRANSACTIONS" $ do (.> previousBalance) ] + -- now we can quit + let delegationQuit = Json [json|{ + "delegations": [{ + "quit": { + "stake_key_index": "0H" + } + }] + }|] + rTx4 <- request @(ApiConstructTransaction n) ctx + (Link.createUnsignedTransaction @'Shared party1) Default delegationQuit + verify rTx4 + [ expectResponseCode HTTP.status202 + , expectField (#coinSelection . #depositsTaken) (`shouldBe` []) + , expectField (#coinSelection . #depositsReturned) (`shouldBe` [depositAmt]) + ] + where listSharedTransactions ctx w mStart mEnd mOrder mLimit = do let path = Link.listTransactions' @'Shared w