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

Children contain asterisks and newlines.

Browse Source
This commit is contained in:
Rob Rix 2016-05-20 15:50:31 -04:00
parent b0c0f13b61
commit f8e007bb46
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
test/AlignmentSpec.hs
View File

@ -188,8 +188,9 @@ data Child = Child
}
instance Arbitrary Child where
arbitrary = Child <$> key <*> arbitrary <*> margin
arbitrary = Child <$> key <*> contents <*> margin
where key = listOf1 (elements (['a'..'z'] ++ ['A'..'Z'] ++ ['0'..'9']))
contents = listOf (elements "*\n")
margin = listOf (elements " \n")
counts :: [Join These (Int, a)] -> Both Int