highlight reported failure in integration scenarios by adding more as…

…sertions
cardano-foundation · Aug 7, 2020 · 5757a55 · 5757a55
1 parent 4a4d0a6
commit 5757a55
Showing 1 changed file with 37 additions and 0 deletions.
diff --git a/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/Transactions.hs b/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/Transactions.hs
@@ -1301,13 +1301,20 @@ spec = do
                 }],
                 "passphrase": #{fixturePassphrase}
             }|]
+        let fee = 143600
+
         rTx <- request @(ApiTransaction n) ctx
             (Link.createTransaction @'Shelley wSelf) Default payload
         verify rTx
             [ expectResponseCode HTTP.status202
             , expectField #withdrawals
                 (`shouldSatisfy` (not . null))
+            , expectField (#direction . #getApiT)
+                (`shouldBe` Incoming)
+            , expectField (#amount . #getQuantity)
+                (`shouldBe` (oneMillionAda - fee))
             ]
+        let tid = getFromResponse Prelude.id rTx
 
         eventually "rewards disappear from other" $ do
             rWOther <- request @ApiWallet ctx
@@ -1317,6 +1324,20 @@ spec = do
                     (`shouldBe` Quantity 0)
                 ]
 
+        eventually "withdrawal transaction is listed on other" $ do
+            rTxOther <- request @(ApiTransaction n) ctx
+                (Link.getTransaction  @'Shelley wOther tid) Default payload
+            verify rTxOther
+                [ expectResponseCode
+                    HTTP.status200
+                , expectField #withdrawals
+                    (`shouldSatisfy` (not . null))
+                , expectField (#direction . #getApiT)
+                    (`shouldBe` Outgoing)
+                , expectField (#amount . #getQuantity)
+                    (`shouldBe` oneMillionAda)
+                ]
+
         eventually "rewards appear on self" $ do
             rWSelf <- request @ApiWallet ctx
                 (Link.getWallet @'Shelley wSelf) Default payload
@@ -1325,6 +1346,22 @@ spec = do
                     (.> (wSelf ^. #balance . #getApiT . #available))
                 ]
 
+        eventually "withdrawal transaction is listed on self" $ do
+            rTxSelf <- request @(ApiTransaction n) ctx
+                (Link.getTransaction  @'Shelley wSelf tid) Default payload
+            verify rTxSelf
+                [ expectResponseCode
+                    HTTP.status200
+                , expectField #withdrawals
+                    (`shouldSatisfy` (not . null))
+                , expectField (#direction . #getApiT)
+                    (`shouldBe` Incoming)
+                , expectField (#amount . #getQuantity)
+                    (`shouldBe` (oneMillionAda - fee))
+                , expectField (#status . #getApiT)
+                    (`shouldBe` InLedger)
+                ]
+
     it "SHELLEY_TX_REDEEM_03 - Can't redeem rewards from other if none left" $ \ctx -> do
         (wOther, mw) <- rewardWallet ctx
         wSelf  <- fixtureWallet ctx