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.
|
|
|
|
import Debug.EventCounters (initEventCounters)
|
|
|
|
|
import System.Metrics (newStore)
|
|
|
|
|
import Test.Tasty
|
|
|
|
|
|
|
|
|
|
import qualified Test.FSM
|
|
|
|
|
import qualified Test.TickTable
|
|
|
|
|
import qualified Test.Transaq
|
|
|
|
|
import qualified Test.Transaq.Parsing
|
|
|
|
|
|
|
|
|
|
main :: IO ()
|
|
|
|
|
main = do
|
|
|
|
|
store <- newStore
|
|
|
|
|
initEventCounters store
|
|
|
|
|
defaultMain $ testGroup "Tests" [unitTests]
|
|
|
|
|
|
|
|
|
|
unitTests :: TestTree
|
|
|
|
|
unitTests = testGroup "Unit Tests"
|
|
|
|
|
[ Test.TickTable.unitTests
|
|
|
|
|
, Test.FSM.unitTests
|
|
|
|
|
, Test.Transaq.unitTests
|
|
|
|
|
, Test.Transaq.Parsing.unitTests ]
|
