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

Verify that sourceSpanToRange computes multi-line ranges.

Browse Source
This commit is contained in:
Rob Rix 2016-09-13 14:27:52 -04:00
parent 8de562b88e
commit 50e5f8a411
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test/Source/Spec.hs
View File

@ -25,6 +25,11 @@ spec = parallel $ do
ranges = actualLineRanges (totalRange source) source in ranges = actualLineRanges (totalRange source) source in
sourceSpanToRange source <$> spans `shouldBe` ranges sourceSpanToRange source <$> spans `shouldBe` ranges
prop "computes multi-line ranges" $
\ s -> let source = fromList s
ranges = actualLineRanges (totalRange source) source in
sourceSpanToRange source (totalSpan source) `shouldBe` totalRange source
describe "totalSpan" $ do describe "totalSpan" $ do
prop "covers single lines" $ prop "covers single lines" $
\ n -> totalSpan (fromList (replicate n '*')) `shouldBe` SourceSpan "" (SourcePos 0 0) (SourcePos 0 (max 0 n)) \ n -> totalSpan (fromList (replicate n '*')) `shouldBe` SourceSpan "" (SourcePos 0 0) (SourcePos 0 (max 0 n))