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

Test sourceSpanToRange across arbitrary sources.

Browse Source
This commit is contained in:
Rob Rix 2016-09-13 12:37:59 -04:00
parent 61dd23789d
commit c5fed4ac25
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
test/Source/Spec.hs
View File

@ -18,6 +18,8 @@ spec = parallel $ do
foldMap (`slice` source) (actualLineRanges (totalRange s) source) `shouldBe` source
describe "sourceSpanToRange" $ do
it "computes the range covering a span in a source" $
let source = fromList "a\nb" in
sourceSpanToRange source (SourceSpan "" (SourcePos 0 0) (SourcePos 1 1)) `shouldBe` totalRange source
prop "computes the range covering a span in some source" $
\ s -> let source = fromList s
spans = zipWith (\ i Range {..} -> SourceSpan "" (SourcePos i 0) (SourcePos i (end - start))) [0..] ranges
ranges = actualLineRanges (totalRange source) source in
sourceSpanToRange source <$> spans `shouldBe` ranges