github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

Add an Arbitrary instance for Line.

Browse Source
This commit is contained in:
Rob Rix 2015-12-11 00:19:48 -05:00
parent e84d8804bf
commit 91140aa8fa
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test/Spec.hs
View File

@ -25,6 +25,11 @@ instance Arbitrary HTML where
Span <$> arbitrary <*> arbitrary,
const Break <$> (arbitrary :: Gen ()) ]
instance Arbitrary Line where
arbitrary = oneof [
Line <$> arbitrary,
const EmptyLine <$> (arbitrary :: Gen ()) ]
main :: IO ()
main = hspec $ do
describe "Term" $ do