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

Forgot that Exception doesn't imply Eq.

Browse Source
This commit is contained in:
Patrick Thomson 2019-06-19 12:58:15 -04:00
parent 9e2b0e3071
commit 6d599a5c7b
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/Semantic/Spec.hs
View File

@ -1,6 +1,6 @@
module Semantic.Spec (spec) where module Semantic.Spec (spec) where
import Data.Either import Control.Exception (fromException)
import SpecHelpers import SpecHelpers
import Data.Blob (NoLanguageForBlob (..)) import Data.Blob (NoLanguageForBlob (..))
@ -20,7 +20,9 @@ spec = parallel $ do
it "throws if given an unknown language for sexpression output" $ do it "throws if given an unknown language for sexpression output" $ do
res <- runTaskWithOptions defaultOptions (parseTermBuilder TermSExpression [setBlobLanguage Unknown methodsBlob]) res <- runTaskWithOptions defaultOptions (parseTermBuilder TermSExpression [setBlobLanguage Unknown methodsBlob])
void res `shouldBe` Left (NoLanguageForBlob "methods.rb") case res of
Left exc -> fromException exc `shouldBe` Just (NoLanguageForBlob "methods.rb")
Right _bad -> fail "Expected parseTermBuilder to fail for an unknown language"
it "renders with the specified renderer" $ do it "renders with the specified renderer" $ do
output <- fmap runBuilder . runTaskOrDie $ parseTermBuilder TermSExpression [methodsBlob] output <- fmap runBuilder . runTaskOrDie $ parseTermBuilder TermSExpression [methodsBlob]