mirror of
https://github.com/github/semantic.git
synced 2024-12-22 14:21:31 +03:00
39 lines
1.4 KiB
Haskell
39 lines
1.4 KiB
Haskell
{-# LANGUAGE DataKinds #-}
|
|
module DiffSummarySpec where
|
|
|
|
import Prologue
|
|
import Data.Record
|
|
import Data.String
|
|
import Test.Hspec
|
|
import Diff
|
|
import Syntax
|
|
import Patch
|
|
import Category
|
|
import DiffSummary
|
|
|
|
arrayInfo :: Record '[Category]
|
|
arrayInfo = ArrayLiteral .: RNil
|
|
|
|
literalInfo :: Record '[Category]
|
|
literalInfo = StringLiteral .: RNil
|
|
|
|
testDiff :: Diff String (Record '[Category])
|
|
testDiff = free $ Free (pure arrayInfo :< Indexed [ free $ Pure (Insert (cofree $ literalInfo :< Leaf "a")) ])
|
|
|
|
testSummary :: DiffSummary DiffInfo
|
|
testSummary = DiffSummary { patch = Insert (DiffInfo "string" (Just "a")), parentAnnotations = [] }
|
|
|
|
replacementSummary :: DiffSummary DiffInfo
|
|
replacementSummary = DiffSummary { patch = Replace (DiffInfo "string" (Just "a")) (DiffInfo "symbol" (Just "b")), parentAnnotations = [ (DiffInfo "array" (Just "switch {}")) ] }
|
|
|
|
spec :: Spec
|
|
spec = parallel $ do
|
|
describe "diffSummary" $ do
|
|
it "outputs a diff summary" $ do
|
|
diffSummary testDiff `shouldBe` [ DiffSummary { patch = Insert (DiffInfo "string" (Just "a")), parentAnnotations = [ DiffInfo "array" Nothing ] } ]
|
|
describe "show" $ do
|
|
it "should print adds" $
|
|
show testSummary `shouldBe` ("Added the 'a' string" :: String)
|
|
it "prints a replacement" $ do
|
|
show replacementSummary `shouldBe` ("Replaced the 'a' string with the 'b' symbol in the array context" :: String)
|