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

Test that openLine will produce open lines.

Browse Source
This commit is contained in:
Rob Rix 2015-12-10 16:29:18 -05:00
parent 69307c76d1
commit 6a73248a46
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
test/Spec.hs
View File

@ -116,6 +116,14 @@ main = hspec $ do
Line [ span "*/" ]
], Range 0 5)
describe "openLine" $ do
it "should produce the earliest open line in a list" $
openLine [
Line [ Div (Just "delete") [ span "*/" ] ],
Line [ Div (Just "delete") [ span " * Debugging", Break ] ],
Line [ Div (Just "delete") [ span "/*", Break ] ]
] `shouldBe` (Just $ Line [ Div (Just "delete") [ span "*/" ] ])
where
rightRowText text = rightRow [ Text text ]
rightRow xs = Row EmptyLine (Line xs)