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

Test against the s-expression renderer.

Browse Source
This commit is contained in:
Rob Rix 2017-09-29 15:14:37 -04:00
parent f095b89492
commit 4eb3b7eacd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/SemanticSpec.hs
View File

@ -23,7 +23,7 @@ spec = parallel $ do
void term `shouldBe` Term (() `In` Indexed [ Term (() `In` Method [] (Term (() `In` Leaf "foo")) Nothing [] []) ])
it "throws if not given a language" $ do
runTask (parseBlob IdentityTermRenderer methodsBlob { blobLanguage = Nothing }) `shouldThrow` (\ code -> case code of
runTask (parseBlob SExpressionTermRenderer methodsBlob { blobLanguage = Nothing }) `shouldThrow` (\ code -> case code of
ExitFailure 1 -> True
_ -> False)