Fix potential race in CLI HW_WALLETS_04

cardano-foundation · Oct 28, 2020 · 6aae477 · 6aae477
1 parent b8a6d71
commit 6aae477
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/lib/core-integration/src/Test/Integration/Scenario/CLI/Shelley/HWWallets.hs b/lib/core-integration/src/Test/Integration/Scenario/CLI/Shelley/HWWallets.hs
@@ -78,6 +78,7 @@ import Test.Integration.Framework.DSL
     , verify
     , walletId
     , (.>)
+    , (.>)
     )
 import Test.Integration.Framework.TestData
     ( cmdOk, errMsg403NoRootKey )
@@ -235,6 +236,13 @@ spec = describe "SHELLEY_CLI_HW_WALLETS" $ do
             e1 `shouldContain` cmdOk
             wRestored <- expectValidJSON (Proxy @ApiWallet) o1
 
+            eventually "Wallet has funds" $ do
+                Stdout og <- getWalletViaCLI @t ctx $ T.unpack (wRestored ^. walletId)
+                expectValidJSON (Proxy @ApiWallet) og >>= flip verify
+                    [ expectCliField (#balance . #getApiT . #available)
+                        (.> Quantity 0)
+                    ]
+
             -- get fee
             wDest <- emptyWallet ctx
             addrs:_ <- listAddresses @n ctx wDest