Re-write "BYRON_LIST_03 - Shelley CLI does not list Byron wallet"

cardano-foundation · Oct 28, 2020 · f941081 · f941081
1 parent 493348b
commit f941081
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/lib/core-integration/src/Test/Integration/Scenario/CLI/Shelley/Wallets.hs b/lib/core-integration/src/Test/Integration/Scenario/CLI/Shelley/Wallets.hs
@@ -119,14 +119,15 @@ spec = describe "SHELLEY_CLI_WALLETS" $ do
         err `shouldContain` errMsg404NoWallet (T.pack wid)
 
     it "BYRON_LIST_03 - Shelley CLI does not list Byron wallet" $ \ctx -> runResourceT $ do
-        _ <- emptyRandomWallet' ctx
-        wid <- emptyWallet' ctx
+        byronWid <- emptyRandomWallet' ctx
+        shelleyWid <- emptyWallet' ctx
         (Exit c, Stdout out, Stderr err) <- listWalletsViaCLI @t ctx
         c `shouldBe` ExitSuccess
         err `shouldBe` cmdOk
         j <- expectValidJSON (Proxy @[ApiWallet]) out
-        length j `shouldBe` 1
-        expectCliListField 0 walletId (`shouldBe` T.pack wid) j
+        let wids = map (T.unpack . view walletId) j
+        wids `shouldContain` [shelleyWid]
+        wids `shouldNotContain` [byronWid]
 
     it "BYRON_DELETE_03 - Shelley CLI does not delete Byron wallet" $ \ctx -> runResourceT $ do
         wid <- emptyRandomWallet' ctx