Add input check for multi-address pending tx

cardano-foundation · Jan 5, 2021 · cdf556a · cdf556a
1 parent bd2916b
commit cdf556a
Showing 1 changed file with 2 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
@@ -413,6 +413,8 @@ spec = describe "SHELLEY_TRANSACTIONS" $ do
                 between (feeMin + (2*amt), feeMax + (2*amt))
             , expectField (#direction . #getApiT) (`shouldBe` Outgoing)
             , expectField (#status . #getApiT) (`shouldBe` Pending)
+            , expectField #inputs $ \inputs' -> do
+                inputs' `shouldSatisfy` all (isJust . source)
             ]
 
         verify ra