github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 01:47:01 +03:00
Code Issues Projects Releases Wiki Activity

Extract alignment from the property test.

Browse Source
This commit is contained in:
Rob Rix 2016-05-25 10:59:16 -04:00
parent 5c1b0809ec
commit 6caf9d3930
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
test/AlignmentSpec.hs
View File

@ -54,10 +54,7 @@ spec = parallel $ do
pendingWith "TBD"
prop "covers every input child" $
\ elements ->
let (_, ranges) = toSourcesAndRanges elements
children = toAlignedChildren elements in
sort (nub (keysOfAlignedChildren (alignBranch id children ranges))) `shouldBe` sort (catMaybes (branchElementKey <$> elements))
\ elements -> sort (nub (keysOfAlignedChildren (alignmentFromBranchElements elements))) `shouldBe` sort (catMaybes (branchElementKey <$> elements))
prop "covers every line of every input child" $
pendingWith "TBD"
@ -192,6 +189,11 @@ data BranchElement
| Margin (Join These String)
deriving Show
alignmentFromBranchElements :: [BranchElement] -> [Join These (Range, [(String, Range)])]
alignmentFromBranchElements elements = alignBranch id children ranges
where (_, ranges) = toSourcesAndRanges elements
children = toAlignedChildren elements
branchElementContents :: BranchElement -> Join These String
branchElementContents (Child _ contents) = contents
branchElementContents (Margin contents) = contents