From 2dac80c4a1ca477b884bf063e99e94649ff385f6 Mon Sep 17 00:00:00 2001 From: Pawel Jakubas Date: Mon, 24 Apr 2023 17:34:27 +0200 Subject: [PATCH] extend integration testing 1 --- .../Integration/Scenario/API/Shared/Transactions.hs | 12 ++++++++++++ 1 file changed, 12 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 c57067cfec2..5ccf8c3dbf2 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 @@ -2089,6 +2089,18 @@ spec = describe "SHARED_TRANSACTIONS" $ do [ expectField #delegation (`shouldBe` delegating (ApiT pool2) []) ] + -- there's currently no withdrawals in the wallet + rw1 <- request @[ApiTransaction n] ctx + (Link.listTransactions' @'Shared party1 (Just 1) + Nothing Nothing Nothing Nothing) + Default Empty + verify rw1 [ expectListSize 0 ] + rw2 <- request @[ApiTransaction n] ctx + (Link.listTransactions' @'Shared party2 (Just 1) + Nothing Nothing Nothing Nothing) + Default Empty + verify rw2 [ expectListSize 0 ] + where listSharedTransactions ctx w mStart mEnd mOrder mLimit = do let path = Link.listTransactions' @'Shared w