github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 18:23:44 +03:00
Code Issues Projects Releases Wiki Activity

Test openLineBy over openTerm.

Browse Source
This commit is contained in:
Rob Rix 2015-12-21 20:04:05 -05:00
parent 60edd3b19a
commit d1abf65cdd
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
test/SplitSpec.hs
View File

@ -160,11 +160,22 @@ spec = do
Line True [ Div (Just "delete") [ span "/*", Break ] ]
] `shouldBe` (Just $ Line True [ Div (Just "delete") [ span "*/" ] ])
it "should produce the earliest non-empty line in a list, if open" $
openLineBy (openTerm "\n ") [
Line True [ Info (Range 1 2) mempty :< Leaf "" ],
Line True [ Info (Range 0 1) mempty :< Leaf "" ]
] `shouldBe` (Just $ Line True [ Info (Range 1 2) mempty :< Leaf "" ])
it "should return Nothing if the earliest non-empty line is closed" $
openLineBy openElement [
Line True [ Div (Just "delete") [ span " * Debugging", Break ] ]
] `shouldBe` Nothing
it "should return Nothing if the earliest non-empty line is closed" $
openLineBy (openTerm "\n") [
Line True [ Info (Range 0 1) mempty :< Leaf "" ]
] `shouldBe` Nothing
where
rightRowText text = rightRow [ Text text ]
rightRow xs = Row EmptyLine (Line False xs)