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

Run the monoid spec over coalesced strings.

Browse Source
This commit is contained in:
Rob Rix 2016-03-11 10:31:14 -05:00
parent 14234a7440
commit 8cfcd8b7bc
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
test/Data/Adjoined/Spec.hs
View File

@ -11,6 +11,7 @@ spec = do
prop "equality is reflexive" $
\ a -> a `shouldBe` (a :: Adjoined (Uncoalesced Char))
describe "Monoid (Coalesced)" $ monoid (arbitrary :: Gen (Adjoined (Coalesced String)))
describe "Monoid (Uncoalesced)" $ monoid (arbitrary :: Gen (Adjoined (Uncoalesced String)))
monoid :: (Arbitrary a, Coalescent a, Eq a, Show a) => Gen (Adjoined a) -> Spec