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

Correct how we count the number of relevant nodes.

Browse Source
This commit is contained in:
Rob Rix 2017-05-11 16:54:14 -04:00
parent f24a687937
commit 2b68c6e626
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/TOCSpec.hs
View File

@ -35,7 +35,7 @@ spec = parallel $ do
prop "drops all nodes with the constant Nothing function" $
\ diff -> tableOfContentsBy (const Nothing :: a -> Maybe ()) (unListableDiff diff :: Diff (Syntax ()) ()) `shouldBe` []
let diffSize = cata (succ . sum) . fmap (termSize . afterOrBefore)
let diffSize = max 1 . sum . fmap (sum . fmap (const 1))
let lastValue a = fromMaybe (extract a) (getLast (foldMap (Last . Just) a))
prop "includes all nodes with a constant Just function" $
\ diff -> let diff' = (unListableDiff diff :: Diff (Syntax ()) ()) in entryPayload <$> tableOfContentsBy (const (Just ())) diff' `shouldBe` replicate (diffSize diff') ()