github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 00:42:33 +03:00
Code Issues Projects Releases Wiki Activity

Fix a spec.

Browse Source
This commit is contained in:
Rob Rix 2021-08-19 15:46:45 -04:00
parent 55c349bc0f
commit 7696adfc97
No known key found for this signature in database
GPG Key ID: 2BE643E01DC032AE
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
semantic/test/Semantic/IO/Spec.hs
View File

@ -9,6 +9,7 @@ module Semantic.IO.Spec (spec) where
import Prelude hiding (readFile)
import Analysis.File as File
import Analysis.Reference as Ref
import Data.Blob as Blob
import Data.Handle
import SpecHelpers
@ -30,11 +31,11 @@ spec = do
it "returns a blob for extant files" $ do
let path = Fixture.absRelFile "test/fixtures/cli/diff.json"
Just blob <- readBlobFromFile (File path lowerBound Unknown)
Just blob <- readBlobFromFile (File (Reference path lowerBound) Unknown)
blobFilePath blob `shouldBe` Path.toString path
it "throws for absent files" $ do
readBlobFromFile (File (Path.absRel "/dev/doesnotexist") lowerBound Unknown) `shouldThrow` anyIOException
readBlobFromFile (File (Reference (Path.absRel "/dev/doesnotexist") lowerBound) Unknown) `shouldThrow` anyIOException
describe "readBlobPairsFromHandle" $ do
let a = Blob.fromSource (Path.relFile "method.rb") Ruby "def foo; end"