github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-29 18:06:14 +03:00
Code Issues Projects Releases Wiki Activity

Factor the sequenceAlt law properties into a separate function.

Browse Source
This commit is contained in:
Rob Rix 2016-07-26 04:04:24 -04:00
parent 93c53ed90a
commit fa3b7d126e
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/Data/Mergeable/Spec.hs
View File

@ -8,6 +8,10 @@ import Test.Hspec.QuickCheck
spec :: Spec
spec = do
sequenceAltLaws
sequenceAltLaws :: Spec
sequenceAltLaws = do
describe "sequenceAlt" $ do
prop "identity" $
\ a -> sequenceAlt (fmap Just a) `shouldBe` Just (a :: [Char])