mirror of
https://github.com/github/semantic.git
synced 2024-11-27 12:57:49 +03:00
25 lines
745 B
Haskell
25 lines
745 B
Haskell
{-# LANGUAGE DisambiguateRecordFields, OverloadedStrings, TypeApplications #-}
|
|
module Main (main) where
|
|
|
|
import qualified System.Path as Path
|
|
import Test.Tasty
|
|
import TreeSitter.TSX
|
|
import qualified TreeSitter.TSX.AST as Ts
|
|
import AST.TestHelpers
|
|
import AST.Unmarshal
|
|
import qualified Language.TSX.AST as Tsx
|
|
import Language.TSX.Grammar
|
|
import qualified System.Path as Path
|
|
import Test.Tasty
|
|
|
|
main :: IO ()
|
|
main
|
|
= Path.absDir <$> Tsx.getTestCorpusDir
|
|
>>= readCorpusFiles'
|
|
>>= traverse (testCorpus parse)
|
|
>>= defaultMain . tests
|
|
where parse = parseByteString @Tsx.Program @() tree_sitter_tsx
|
|
|
|
tests :: [TestTree] -> TestTree
|
|
tests = testGroup "tree-sitter-tsx corpus tests"
|