Skip to content

Commit

Permalink
add failing expectation for getTransaction
Browse files Browse the repository at this point in the history
  • Loading branch information
paweljakubas committed May 29, 2023
1 parent 93d9faa commit 4327532
Showing 1 changed file with 6 additions and 0 deletions.
Expand Up @@ -1936,6 +1936,9 @@ spec = describe "SHARED_TRANSACTIONS" $ do
, expectField (#direction . #getApiT) (`shouldBe` Outgoing)
, expectField #depositTaken (`shouldBe` depositAmt)
, expectField #depositReturned (`shouldBe` Quantity 0)
, expectField #certificates
(`shouldBe` [ registerStakeKeyCert stakeKeyDerPathParty1
, delegatingCert stakeKeyDerPathParty1])
]
eventually "Party2's wallet has joined pool and deposit info persists" $ do
rJoin' <- request @(ApiTransaction n) ctx
Expand All @@ -1948,6 +1951,9 @@ spec = describe "SHARED_TRANSACTIONS" $ do
, expectField (#direction . #getApiT) (`shouldBe` Outgoing)
, expectField #depositTaken (`shouldBe` depositAmt)
, expectField #depositReturned (`shouldBe` Quantity 0)
, expectField #certificates
(`shouldBe` [ registerStakeKeyCert stakeKeyDerPathParty2
, delegatingCert stakeKeyDerPathParty2])
]

let txId2 = getFromResponse #id submittedTx2
Expand Down

0 comments on commit 4327532

Please sign in to comment.