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.
19 lines
478 B
19 lines
478 B
import Debug.EventCounters (initEventCounters) |
|
import System.Metrics (newStore) |
|
import Test.Tasty |
|
|
|
import qualified Test.FSM |
|
import qualified Test.TickTable |
|
import qualified Test.Transaq |
|
|
|
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 ]
|
|
|