module Main where

import Test.HUnit (Counts (..), Test (TestLabel, TestList), runTestTT)

import Control.Monad.Cont (when)
import qualified Spec.Bucket
import qualified Spec.Client
import qualified Spec.Config
import qualified Spec.Context
import qualified Spec.DataSource
import qualified Spec.Evaluate
import qualified Spec.Features
import qualified Spec.Integrations.FileData
import qualified Spec.Integrations.TestData
import qualified Spec.Operators
import qualified Spec.PersistentDataStore
import qualified Spec.Reference
import qualified Spec.Segment
import qualified Spec.Store
import qualified Spec.Streaming
import System.Exit (ExitCode (ExitFailure), exitWith)

main :: IO ()
main = do
    Counts {..} <-
        runTestTT $
            TestList
                [ Spec.Bucket.allTests
                , Spec.Client.allTests
                , Spec.Config.allTests
                , Spec.Context.allTests
                , Spec.DataSource.allTests
                , Spec.Evaluate.allTests
                , Spec.Features.allTests
                , Spec.Operators.allTests
                , Spec.Reference.allTests
                , Spec.Segment.allTests
                , Spec.Store.allTests
                , Spec.PersistentDataStore.allTests
                , Spec.Streaming.allTests
                , TestLabel "Integration.FileData" Spec.Integrations.FileData.allTests
                , TestLabel "Integration.TestData" Spec.Integrations.TestData.allTests
                ]
    when (errors + failures > 0) $ exitWith (ExitFailure 1)