reproduce bug #286

cardano-foundation · May 21, 2019 · fa80c12 · fa80c12
1 parent 8c0eecb
commit fa80c12
Showing 1 changed file with 13 additions and 2 deletions.
diff --git a/lib/http-bridge/test/integration/Test/Integration/Scenario/Transactions.hs b/lib/http-bridge/test/integration/Test/Integration/Scenario/Transactions.hs
@@ -76,11 +76,22 @@ spec = do
             , expectFieldEqual status Pending
             ]
 
-        r' <- request @ApiWallet ctx ("GET", getWallet wb) Default payload
-        verify r'
+        ra <- request @ApiWallet ctx ("GET", getWallet wa) Default payload
+        verify ra
+            [ expectSuccess
+            , expectFieldEqual balanceTotal 999999831346
+            , expectFieldEqual balanceAvailable 0
+            ]
+
+        rb <- request @ApiWallet ctx ("GET", getWallet wb) Default payload
+        verify rb
             [ expectSuccess
             , expectEventually ctx balanceAvailable (oneMillionAda + 1)
             ]
+
+        verify ra
+            [ expectEventually ctx balanceAvailable 999999831346
+            ]
   where
     oneMillionAda =
         1 * 1000 * 1000 * 1000 * 1000