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

Assertive assertions.

Browse Source
This commit is contained in:
Rob Rix 2015-12-21 20:23:56 -05:00
parent a69366cf4b
commit 2c3ff54dc6
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
test/SplitSpec.hs
View File

@ -92,7 +92,7 @@ spec = do
EmptyLine
]
it "should split multi-line deletions across multiple rows" $
it "splits multi-line deletions across multiple rows" $
let (sourceA, sourceB) = ("/*\n*/\na", "a") in
annotatedToRows (formatted sourceA sourceB "branch" (Indexed [
Pure . Delete $ (Info (Range 0 5) (Set.fromList ["leaf"]) :< Leaf ""),
@ -153,25 +153,25 @@ spec = do
], Range 0 5)
describe "openLineBy" $ do
it "should produce the earliest non-empty line in a list, if open" $
it "produces the earliest non-empty line in a list, if open" $
openLineBy openElement [
Line True [ Div (Just "delete") [ span "*/" ] ],
Line True [ Div (Just "delete") [ span " * Debugging", Break ] ],
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" $
it "produces 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" $
it "returns 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" $
it "returns Nothing if the earliest non-empty line is closed" $
openLineBy (openTerm "\n") [
Line True [ Info (Range 0 1) mempty :< Leaf "" ]
] `shouldBe` Nothing