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

Stub in a spec for sourceSpanToRange.

Browse Source
This commit is contained in:
Rob Rix 2016-09-13 11:59:46 -04:00
parent 4603cea555
commit 076f5c0d1e
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
test/Source/Spec.hs
View File

@ -15,3 +15,6 @@ spec = parallel $ do
prop "produces exhaustive ranges" $ prop "produces exhaustive ranges" $
\ s -> let source = fromList s in \ s -> let source = fromList s in
foldMap (`slice` source) (actualLineRanges (totalRange s) source) `shouldBe` source foldMap (`slice` source) (actualLineRanges (totalRange s) source) `shouldBe` source
describe "sourceSpanToRange" $
prop "is one-indexed" pending