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

Use the ordinary ArbitraryTerm constructor.

Browse Source
This commit is contained in:
Rob Rix 2015-12-11 10:34:43 -05:00
parent 2cbe8959fe
commit a7c959db6c
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
test/Spec.hs
View File

@ -35,13 +35,12 @@ instance (Arbitrary a, Arbitrary annotation) => Arbitrary (ArbitraryTerm a annot
arbitrary = (\ annotation syntax -> ArbitraryTerm $ (annotation, unSyntax syntax)) <$> arbitrary <*> arbitrary
arbitraryBounded :: (Arbitrary a, Arbitrary annotation) => Int -> Gen (ArbitraryTerm a annotation)
arbitraryBounded k = make <$> arbitrary <*> oneof [
arbitraryBounded k = ArbitraryTerm <$> ((,) <$> arbitrary <*> oneof [
Leaf <$> arbitrary,
Indexed <$> vectorOfAtMost k (arbitraryBounded $ k - 1),
Syntax.Fixed <$> vectorOfAtMost k (arbitraryBounded $ k - 1),
Keyed . Map.fromList <$> arbitrary ]
where make annotation syntax = ArbitraryTerm $ (annotation, syntax)
vectorOfAtMost k gen = choose (0, k) >>= \n -> vectorOf n gen
Keyed . Map.fromList <$> arbitrary ])
where vectorOfAtMost k gen = choose (0, k) >>= \n -> vectorOf n gen
instance Arbitrary HTML where
arbitrary = oneof [