github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-06 06:46:07 +03:00
Code Issues Projects Releases Wiki Activity

fix tests

Browse Source
This commit is contained in:
joshvera 2016-08-08 14:59:51 -04:00
parent 81e42933ce
commit 0bee997724
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
test/DiffSummarySpec.hs
View File

@ -31,10 +31,10 @@ testDiff :: Diff Text (Record '[Category, Range])
testDiff = free $ Free (pure arrayInfo :< Indexed [ free $ Pure (Insert (cofree $ literalInfo :< Leaf "a")) ]) testDiff = free $ Free (pure arrayInfo :< Indexed [ free $ Pure (Insert (cofree $ literalInfo :< Leaf "a")) ])
testSummary :: DiffSummary DiffInfo testSummary :: DiffSummary DiffInfo
testSummary = DiffSummary { patch = Insert (LeafInfo "string" "a"), parentAnnotations = [] } testSummary = DiffSummary { patch = Insert (LeafInfo "string" "a"), parentAnnotation = Nothing }
replacementSummary :: DiffSummary DiffInfo replacementSummary :: DiffSummary DiffInfo
replacementSummary = DiffSummary { patch = Replace (LeafInfo "string" "a") (LeafInfo "symbol" "b"), parentAnnotations = [ ArrayLiteral ] } replacementSummary = DiffSummary { patch = Replace (LeafInfo "string" "a") (LeafInfo "symbol" "b"), parentAnnotation = Just (Info.FunctionCall, "foo") }
sources :: Both (Source Char) sources :: Both (Source Char)
sources = both (fromText "[]") (fromText "[a]") sources = both (fromText "[]") (fromText "[a]")
@ -43,7 +43,7 @@ spec :: Spec
spec = parallel $ do spec = parallel $ do
describe "diffSummaries" $ do describe "diffSummaries" $ do
it "outputs a diff summary" $ do it "outputs a diff summary" $ do
diffSummaries sources testDiff `shouldBe` [ DiffSummary { patch = Insert (LeafInfo "string" "a"), parentAnnotations = [ ArrayLiteral ] } ] diffSummaries sources testDiff `shouldBe` [ DiffSummary { patch = Insert (LeafInfo "string" "a"), parentAnnotation = Nothing } ]
prop "equal terms produce identity diffs" $ prop "equal terms produce identity diffs" $
\ a -> let term = toTerm (a :: ArbitraryTerm Text (Record '[Category, Range])) in \ a -> let term = toTerm (a :: ArbitraryTerm Text (Record '[Category, Range])) in
@ -53,7 +53,7 @@ spec = parallel $ do
it "should print adds" $ it "should print adds" $
annotatedSummaries testSummary `shouldBe` ["Added the 'a' string"] annotatedSummaries testSummary `shouldBe` ["Added the 'a' string"]
it "prints a replacement" $ do it "prints a replacement" $ do
annotatedSummaries replacementSummary `shouldBe` ["Replaced the 'a' string with the 'b' symbol in the array context"] annotatedSummaries replacementSummary `shouldBe` ["Replaced the 'a' string with the 'b' symbol in the foo function call"]
describe "DiffInfo" $ do describe "DiffInfo" $ do
prop "patches in summaries match the patches in diffs" $ prop "patches in summaries match the patches in diffs" $
\a -> let \a -> let