github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-29 01:42:43 +03:00
Code Issues Projects Releases Wiki Activity

Test that diffAndRenderTermPair produces Nothing when both blobs are missing.

Browse Source
This commit is contained in:
Rob Rix 2017-05-30 10:33:59 -04:00
parent 8744bd0072
commit 2c8bb24343
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test/SemanticSpec.hs
View File

@ -27,5 +27,10 @@ spec = parallel $ do
output <- runTask $ parseAndRenderBlob SExpressionTermRenderer methodsBlob
output `shouldBe` "(Program\n (Method\n (Identifier)))\n"
describe "diffAndRenderTermPair" $ do
it "produces Nothing when both blobs are missing" $ do
result <- runTask (diffAndRenderTermPair (pure (emptySourceBlob "/foo")) (runBothWith replacing) (const "non-empty") (pure (cofree (() :< []))))
result `shouldBe` Nothing
where
methodsBlob = SourceBlob (Source "def foo\nend\n") "ff7bbbe9495f61d9e1e58c597502d152bab1761e" "methods.rb" (Just defaultPlainBlob) (Just Ruby)