You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
30 lines
805 B
30 lines
805 B
|
|
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 ] |
|
|
|
|