{-# LANGUAGE OverloadedStrings #-}

module Main
  ( main,
  )
where

import qualified Feature.Holistic.API as Holistic
  ( api,
  )
import qualified Feature.Input.DefaultValue.API as DefaultValue
  ( api,
  )
import qualified Feature.Input.Enum.API as InputEnum
  ( api,
  )
import qualified Feature.Input.Object.API as InputObject
  ( api,
  )
import qualified Feature.Input.Scalar.API as InputScalar
  ( api,
  )
import qualified Feature.InputType.API as InputType
  ( api,
  )
import qualified Feature.Schema.API as Schema
  ( api,
  )
import qualified Feature.TypeInference.API as Inference
  ( api,
  )
import qualified Feature.UnionType.API as UnionType
  ( api,
  )
import qualified Feature.WrappedTypeName.API as TypeName
  ( api,
  )
import Rendering.TestSchemaRendering (testSchemaRendering)
import Subscription.Test (testSubsriptions)
import Test.Tasty
  ( defaultMain,
    testGroup,
  )
import TestFeature (testFeature)

main :: IO ()
main = do
  ioTests <- testFeature Holistic.api "Feature/Holistic"
  unionTest <- testFeature UnionType.api "Feature/UnionType"
  inputTest <- testFeature InputType.api "Feature/InputType"
  schemaTest <- testFeature Schema.api "Feature/Schema"
  typeName <- testFeature TypeName.api "Feature/WrappedTypeName"
  inputEnum <- testFeature InputEnum.api "Feature/Input/Enum"
  inputScalar <- testFeature InputScalar.api "Feature/Input/Scalar"
  inputObject <- testFeature InputObject.api "Feature/Input/Object"
  defaultValue <- testFeature DefaultValue.api "Feature/Input/DefaultValue"
  inference <- testFeature Inference.api "Feature/TypeInference"
  subscription <- testSubsriptions
  defaultMain
    ( testGroup
        "Morpheus Graphql Tests"
        [ ioTests,
          unionTest,
          inputTest,
          schemaTest,
          typeName,
          inputEnum,
          inputScalar,
          inputObject,
          testSchemaRendering,
          inference,
          subscription,
          defaultValue
        ]
    )