From 8313074e507e2f62466e9ad0521608d1c40a1e48 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 26 May 2016 11:39:24 -0400 Subject: [PATCH] Test that we preserve child lines in the output. --- test/AlignmentSpec.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/test/AlignmentSpec.hs b/test/AlignmentSpec.hs index 498cc48df..ec8e7d9ab 100644 --- a/test/AlignmentSpec.hs +++ b/test/AlignmentSpec.hs @@ -59,7 +59,11 @@ spec = parallel $ do sort (nub (keysOfAlignedChildren (alignBranch id children ranges))) `shouldBe` sort (nub (catMaybes (branchElementKey <$> elements))) prop "covers every line of every input child" $ - pendingWith "TBD" + \ elements -> let (_, children, ranges) = toAlignBranchInputs elements in + sort (keysOfAlignedChildren (alignBranch id children ranges)) `shouldBe` sort (do + (key, lines) <- children + line <- lines + these id id (++) . runJoin . ([key] <$) $ line) describe "alignDiff" $ do it "aligns identical branches on a single line" $