byron integration test 6

cardano-foundation · Jul 6, 2023 · 241db6f · 241db6f
1 parent f226e65
commit 241db6f
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/lib/wallet/integration/src/Test/Integration/Scenario/API/Byron/Transactions.hs b/lib/wallet/integration/src/Test/Integration/Scenario/API/Byron/Transactions.hs
@@ -814,6 +814,18 @@ spec = describe "BYRON_TRANSACTIONS" $ do
                 rl2 <- request @([ApiTransaction n]) ctx linkList2 Default Empty
                 verify rl2 [expectListSize 1]
 
+                let a4 = oneAda * 900
+                -- fixture wallet has 10 addresses, hence we use next one
+                _ <- sendAmtToNewAddr ctx wDest wSrc a4 10
+                let linkList3 = Link.listTransactions' @'Byron wDest
+                        Nothing
+                        Nothing
+                        Nothing
+                        Nothing
+                        Nothing
+                        (Just (apiAddress addr2))
+                rl3 <- request @([ApiTransaction n]) ctx linkList3 Default Empty
+                verify rl3 [expectListSize 2]
   where
     oneAda :: Integer
     oneAda = 1_000_000