Skip to content
Permalink
Browse files

Jormungandr.NetworkSpec: simplify an assertion

  • Loading branch information...
rvl committed Jul 12, 2019
1 parent 8699da5 commit 0fcd5570d36efc544157237cd0129852aa2ff08a
Showing with 1 addition and 5 deletions.
  1. +1 −5 lib/jormungandr/test/integration/Cardano/Wallet/Jormungandr/NetworkSpec.hs
@@ -185,11 +185,7 @@ spec = do
let jml = Jormungandr.mkJormungandrLayer mgr url
let nonexistent = Hash "cat"
res <- runExceptT (Jormungandr.getDescendantIds jml nonexistent 42)
res `shouldSatisfy` \case
Left (ErrGetDescendantsParentNotFound _) -> True
Left (ErrGetDescendantsNetworkUnreachable _) -> False
Right _ -> False

res `shouldBe` Left (ErrGetDescendantsParentNotFound nonexistent)

-- NOTE: 'Right ()' just means that the format wasn't obviously wrong.
-- The tx may still be rejected.

0 comments on commit 0fcd557

Please sign in to comment.
You can’t perform that action at this time.