quit in integration test - part 4

cardano-foundation · May 30, 2023 · 47d37d6 · 47d37d6
1 parent 5f21ed0
commit 47d37d6
Showing 1 changed file with 11 additions and 0 deletions.
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
@@ -140,6 +140,7 @@ import Test.Integration.Framework.DSL
     , json
     , listAddresses
     , minUTxOValue
+    , notDelegating
     , patchSharedWallet
     , postSharedWallet
     , request
@@ -2222,6 +2223,16 @@ spec = describe "SHARED_TRANSACTIONS" $ do
             [ expectResponseCode HTTP.status202
             ]
 
+        eventually "party1: Wallet is not delegating" $ do
+            request @ApiWallet ctx (Link.getWallet @'Shared party1) Default Empty
+                >>= flip verify
+                    [ expectField #delegation (`shouldBe` notDelegating [])
+                    ]
+        eventually "party2: Wallet is not delegating" $ do
+            request @ApiWallet ctx (Link.getWallet @'Shared party2) Default Empty
+                >>= flip verify
+                    [ expectField #delegation (`shouldBe` notDelegating [])
+                    ]
   where
      listSharedTransactions ctx w mStart mEnd mOrder mLimit = do
          let path = Link.listTransactions' @'Shared w