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

Parallelize the Mergeable spec.

Browse Source
This commit is contained in:
Rob Rix 2016-07-26 12:47:38 -04:00
parent 5d6b1cd047
commit 475c97190c
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/Data/Mergeable/Spec.hs
View File

@ -10,7 +10,7 @@ import Test.Hspec.QuickCheck
import Test.QuickCheck
spec :: Spec
spec = do
spec = parallel $ do
describe "[]" $ sequenceAltLaws (arbitrary :: Gen [Char])
describe "Maybe" $ sequenceAltLaws (arbitrary :: Gen (Maybe Char))
describe "Identity" $ sequenceAltLaws (Identity <$> arbitrary :: Gen (Identity Char))