semantic/test/JSONTestCase.hs

{-# LANGUAGE DeriveAnyClass #-}
module JSONTestCase where

import Data.Aeson
import Data.Map.Strict as Map
import Prelude
import Prologue

data JSONMetaRepo = JSONMetaRepo { repoPath :: !String
                                 , repoUrl  :: !String
                                 , language :: !String
                                 , syntaxes :: ![JSONMetaSyntax]
                                 } deriving (Show, Generic, FromJSON)

data JSONMetaSyntax = JSONMetaSyntax { syntax           :: !String
                                     , repoFilePath     :: !String
                                     , testCaseFilePath :: !String
                                     , insert           :: !String
                                     , replacement      :: !String
                                     } deriving (Show, Generic, FromJSON)

data JSONTestCase = JSONTestCase { gitDir              :: !String
                                 , testCaseDescription :: !String
                                 , filePaths           :: ![String]
                                 , sha1                :: !String
                                 , sha2                :: !String
                                 , expectedResult      :: !ExpectedResult
                                 } deriving (Show, Generic, FromJSON)

data ExpectedResult = SummaryResult (Map Text (Map Text [Value]))
                    | JSONResult (Map Text Value)
                    | EmptyResult
                    deriving (Show, Generic, FromJSON)

instance ToJSON ExpectedResult where
  toEncoding = genericToEncoding defaultOptions

instance ToJSON JSONTestCase where
  toEncoding = genericToEncoding defaultOptions