-- HUnit unit tests for fsmActions package.

-- Copyright (c) 2009 Andy Gimblett - http://www.cs.swan.ac.uk/~csandy/
-- BSD Licence (see http://www.opensource.org/licenses/bsd-license.php)

module Main where

import Test.HUnit.Base
import Test.HUnit.Text

import qualified Tests.Data.FsmActions
import qualified Tests.Data.FsmActions.ActionMatrix
import qualified Tests.Data.FsmActions.FsmEdges
import qualified Tests.Data.FsmActions.FsmMatrix
import qualified Tests.Data.FsmActions.Graph

tests :: Test
tests = test ["FsmActions"   ~: Tests.Data.FsmActions.tests
             ,"FsmEdges"     ~: Tests.Data.FsmActions.FsmEdges.tests
             ,"ActionMatrix" ~: Tests.Data.FsmActions.ActionMatrix.tests
             ,"FsmMatrix"    ~: Tests.Data.FsmActions.FsmMatrix.tests
             ,"Graph"        ~: Tests.Data.FsmActions.Graph.tests
             ]

short :: IO Counts
short = runTestTT Tests.Data.FsmActions.ActionMatrix.tests

allTests :: IO Counts
allTests = runTestTT tests

main :: IO Counts
main = allTests