1
1
mirror of https://github.com/github/semantic.git synced 2024-12-24 23:42:31 +03:00
This commit is contained in:
Rob Rix 2015-12-09 14:47:10 -05:00
parent 96e8b63801
commit 0010bb0c77

View File

@ -98,9 +98,11 @@ main = hspec $ do
it "appends a right-hand line without newlines" $
adjoin2 [ Row EmptyLine (Line [ Text "[" ]) ] (Row EmptyLine (Line [ span "a" ])) `shouldBe`
[ Row EmptyLine (Line [ Text "[", span "a" ]) ]
it "appends onto newlines" $
adjoin2 [ Row (Line [ Text ""]) EmptyLine ] (Row (Line [ Text "," ]) EmptyLine) `shouldBe`
[ Row (Line [ Text "", Text "," ]) EmptyLine ]
where
info source category = Info (totalRange source) (Range 0 0) (Set.fromList [ category ])
unchanged source category = formatted source source category