libatrade/test/Spec.hs

import qualified TestBrokerClient
import qualified TestBrokerProtocol
import qualified TestBrokerServer
import qualified TestQuoteSourceClient
import qualified TestQuoteSourceServer
import qualified TestTypes
import qualified TestZMQTradeSink

import           Test.Tasty

import           System.Log.Logger

main :: IO ()
main = do
  logger <- getRootLogger
  updateGlobalLogger "" (setLevel EMERGENCY)
  defaultMain $ testGroup "Tests" [properties, unitTests]

properties :: TestTree
properties = testGroup "Properties" [TestTypes.properties, TestBrokerProtocol.properties]

unitTests :: TestTree
unitTests = testGroup "Unit-tests" [
    TestQuoteSourceClient.unitTests
  , TestQuoteSourceServer.unitTests
  , TestBrokerServer.unitTests
  , TestBrokerClient.unitTests
  , TestZMQTradeSink.unitTests ]