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

Add an Arbitrary instance over Patch.

Browse Source
This commit is contained in:
Rob Rix 2016-05-31 20:39:39 -04:00
parent ea16b4616c
commit f8443c855c
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
bench/Main.hs
View File

@ -11,6 +11,7 @@ import Data.String
import Data.Text.Arbitrary ()
import Data.These
import Diff
import Patch
import Prologue
import Syntax
import Term
@ -73,3 +74,9 @@ instance (Arbitrary leaf, Arbitrary annotation) => Arbitrary (ArbitraryDiff leaf
(1, Fixed . take maxLength <$> listOf (smallerTerm maxLength maxDepth)),
(1, Keyed . Map.fromList . take maxLength <$> listOf (arbitrary >>= (\x -> (,) x <$> smallerTerm maxLength maxDepth))) ]
smallerTerm maxLength maxDepth = boundedTerm (div maxLength 3) (div maxDepth 3)
instance Arbitrary a => Arbitrary (Patch a) where
arbitrary = oneof [
Insert <$> arbitrary,
Delete <$> arbitrary,
Replace <$> arbitrary <*> arbitrary ]