module Main (main) where import qualified Test.Consensus.Genesis.Tests (tests) import qualified Test.Consensus.GSM (tests) import qualified Test.Consensus.HardFork.Combinator (tests) import qualified Test.Consensus.Node (tests) import qualified Test.Consensus.PeerSimulator.Tests (tests) import qualified Test.Consensus.PointSchedule.Shrinking.Tests (tests) import qualified Test.Consensus.PointSchedule.Tests (tests) import Test.Tasty import Test.Util.TestEnv (defaultMainWithTestEnv, defaultTestEnvConfig) main :: IO () IO () main = TestEnvConfig -> TestTree -> IO () defaultMainWithTestEnv TestEnvConfig defaultTestEnvConfig TestTree tests tests :: TestTree tests :: TestTree tests = TestName -> [TestTree] -> TestTree testGroup TestName "ouroboros-consensus" [ TestTree Test.Consensus.Node.tests , TestName -> [TestTree] -> TestTree testGroup TestName "HardFork" [ TestName -> [TestTree] -> TestTree testGroup TestName "Combinator" [ TestTree Test.Consensus.HardFork.Combinator.tests ] ] , TestTree Test.Consensus.Genesis.Tests.tests , TestName -> [TestTree] -> TestTree testGroup TestName "GSM" [TestTree] Test.Consensus.GSM.tests , TestTree Test.Consensus.PeerSimulator.Tests.tests , TestTree Test.Consensus.PointSchedule.Shrinking.Tests.tests , TestTree Test.Consensus.PointSchedule.Tests.tests ]