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

Use forAll to stub in the test.

Browse Source
This commit is contained in:
Rob Rix 2015-12-18 12:28:57 -05:00
parent a549354030
commit e49715dd86
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/SplitSpec.hs
View File

@ -122,8 +122,8 @@ spec = do
prop "is identity on top of no rows" $
\ a -> adjoin2 [] a == [ a ]
prop "appends onto open lines" $
const True <$> ((arbitrary :: Gen Row) `suchThat` isOpen)
prop "appends onto open rows" $ forAll ((arbitrary :: Gen Row) `suchThat` isOpen) $
\ a -> True
it "appends elements onto incomplete lines" $
adjoin2 [ rightRowText "[" ] (rightRowText "a") `shouldBe`