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

Add more Diff.Arbitrary cases

Browse Source
This commit is contained in:
joshvera 2016-06-21 17:16:22 -04:00
parent bf4c1e8221
commit 40b3f55776
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Diff/Arbitrary.hs
View File

@ -76,5 +76,8 @@ instance (Eq leaf, Eq annotation, Arbitrary leaf, Arbitrary annotation) => Arbit
Syntax.VarAssignment varId value -> Syntax.VarAssignment <$> shrink varId <*> shrink value
Syntax.Switch switchExpr cases -> Syntax.Switch <$> shrink switchExpr <*> (List.subsequences cases >>= recursivelyShrink)
Syntax.Case expr statements -> Syntax.Case <$> shrink expr <*> shrink statements
Syntax.Ternary expr cases -> Syntax.Ternary <$> shrink expr <*> shrink (List.subsequences cases >>= recursivelyShrink)
Syntax.Ternary expr cases -> Syntax.Ternary <$> shrink expr <*> (List.subsequences cases >>= recursivelyShrink)
Syntax.MathAssignment i value -> Syntax.MathAssignment <$> shrink i <*> shrink value
Syntax.Operator syntaxes -> Syntax.Operator <$> (List.subsequences syntaxes >>= recursivelyShrink)
Syntax.SubscriptAccess i property -> Syntax.SubscriptAccess <$> shrink i <*> shrink property
Pure patch -> ArbitraryDiff . Pure <$> shrink patch