Also test listing addresses shows correct number

cardano-foundation · Sep 9, 2020 · 9b94966 · 9b94966
1 parent 2d5dac4
commit 9b94966
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/Wallets.hs b/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/Wallets.hs
@@ -470,8 +470,11 @@ spec = do
  ]
  forM_ matrix $ \(title, addrPoolGap, expectations) -> it title $ \ctx -> do
  let payload = payloadWith' "Secure Wallet" mnemonics24 (fromIntegral addrPoolGap)
- r <- request @ApiWallet ctx (Link.postWallet @'Shelley) Default payload
+ r@(_, Right wallet) <- request @ApiWallet ctx (Link.postWallet @'Shelley) Default payload
  verify r expectations
+ addrs <- listAddresses @n ctx wallet
+ length addrs `shouldBe` addrPoolGap
+
 
  it "WALLETS_CREATE_08 - default address_pool_gap" $ \ctx -> do
  let payload = Json [json| {