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

Test that alignBranch covers every child in the input.

Browse Source
This commit is contained in:
Rob Rix 2016-05-25 09:54:42 -04:00
parent c1198065e2
commit 1f0d0eb714
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/AlignmentSpec.hs
View File

@ -13,6 +13,7 @@ import Data.Bifunctor.Join
import Data.Foldable (toList) import Data.Foldable (toList)
import Data.Functor.Both as Both import Data.Functor.Both as Both
import Data.Functor.Identity import Data.Functor.Identity
import Data.List (nub, sort)
import Data.Maybe (catMaybes, fromMaybe) import Data.Maybe (catMaybes, fromMaybe)
import Data.Monoid import Data.Monoid
import Data.Text.Arbitrary () import Data.Text.Arbitrary ()
@ -53,7 +54,10 @@ spec = parallel $ do
pendingWith "TBD" pendingWith "TBD"
prop "covers every input child" $ prop "covers every input child" $
pendingWith "TBD" \ elements ->
let (_, ranges) = toSourcesAndRanges elements
children = toAlignedChildren elements in
sort (nub (keysOfAlignedChildren (alignBranch id children ranges))) `shouldBe` sort (catMaybes (branchElementKey <$> elements))
prop "covers every line of every input child" $ prop "covers every line of every input child" $
pendingWith "TBD" pendingWith "TBD"