mirror of
https://github.com/github/semantic.git
synced 2024-12-01 17:59:10 +03:00
56 lines
2.6 KiB
Haskell
56 lines
2.6 KiB
Haskell
module Semantic.CLI.Spec (spec) where
|
|
|
|
import Control.Monad (when)
|
|
import qualified Data.ByteString as B
|
|
import Data.ByteString.Builder
|
|
import Data.Foldable (for_)
|
|
import Semantic.Api hiding (File, Blob, BlobPair)
|
|
import Semantic.CLI
|
|
import Semantic.IO
|
|
import Semantic.Task
|
|
import Serializing.Format
|
|
|
|
import SpecHelpers
|
|
|
|
|
|
spec :: Spec
|
|
spec = parallel $ do
|
|
describe "parseDiffBuilder" $
|
|
for_ diffFixtures $ \ (diffRenderer, runDiff, files, expected) ->
|
|
it ("renders to " <> diffRenderer <> " with files " <> show files) $ do
|
|
output <- runTaskOrDie $ readBlobPairs (Right files) >>= runDiff
|
|
runBuilder output `shouldBe'` expected
|
|
|
|
describe "parseTermBuilder" $
|
|
for_ parseFixtures $ \ (format, runParse, files, expected) ->
|
|
it ("renders to " <> format <> " with files " <> show files) $ do
|
|
output <- runTaskOrDie $ readBlobs (FilesFromPaths files) >>= runParse
|
|
runBuilder output `shouldBe'` expected
|
|
where
|
|
shouldBe' actual' expectedFile = do
|
|
let actual = verbatim actual'
|
|
expected <- verbatim <$> B.readFile expectedFile
|
|
actual `shouldBe` expected
|
|
|
|
parseFixtures :: [(String, [Blob] -> TaskEff Builder, [File], FilePath)]
|
|
parseFixtures =
|
|
[ ("s-expression", parseTermBuilder TermSExpression, path, "test/fixtures/ruby/corpus/and-or.parseA.txt")
|
|
, ("json", parseTermBuilder TermJSONTree, path, prefix </> "parse-tree.json")
|
|
, ("json", parseTermBuilder TermJSONTree, path', prefix </> "parse-trees.json")
|
|
, ("json", parseTermBuilder TermJSONTree, [], prefix </> "parse-tree-empty.json")
|
|
, ("symbols", parseSymbolsBuilder Serializing.Format.JSON, path'', prefix </> "parse-tree.symbols.json")
|
|
]
|
|
where path = [File "test/fixtures/ruby/corpus/and-or.A.rb" Ruby]
|
|
path' = [File "test/fixtures/ruby/corpus/and-or.A.rb" Ruby, File "test/fixtures/ruby/corpus/and-or.B.rb" Ruby]
|
|
path'' = [File "test/fixtures/ruby/corpus/method-declaration.A.rb" Ruby]
|
|
prefix = "test/fixtures/cli"
|
|
|
|
diffFixtures :: [(String, [BlobPair] -> TaskEff Builder, [Both File], FilePath)]
|
|
diffFixtures =
|
|
[ ("json diff", parseDiffBuilder DiffJSONTree, pathMode, prefix </> "diff-tree.json")
|
|
, ("s-expression diff", parseDiffBuilder DiffSExpression, pathMode, "test/fixtures/ruby/corpus/method-declaration.diffA-B.txt")
|
|
, ("toc summaries diff", diffSummaryBuilder Serializing.Format.JSON, pathMode, prefix </> "diff-tree.toc.json")
|
|
]
|
|
where pathMode = [Both (File "test/fixtures/ruby/corpus/method-declaration.A.rb" Ruby) (File "test/fixtures/ruby/corpus/method-declaration.B.rb" Ruby)]
|
|
prefix = "test/fixtures/cli"
|