-- ⚠
-- Test
import Test.HUnit (Counts, Test (TestList), runTestTT)
import qualified Control.Greeter.CommonIT as Control_Greeter_CommonIT (testList)
import qualified Control.Greeter.AnonymousIT as Control_Greeter_AnonymousIT (testList)
import qualified Control.Greeter.OnymousIT as Control_Greeter_OnymousIT (testList)
import qualified Service.Greeter.AnonymousUT as Service_Greeter_AnonymousUT (testList)
import qualified Service.Greeter.OnymousUT as Service_Greeter_OnymousUT (testList)

--
main :: IO Counts
main = runITs >> runUTs

--
runITs :: IO ()
runITs =
    Control_Greeter_CommonIT.testList
    >> Control_Greeter_AnonymousIT.testList
    >> Control_Greeter_OnymousIT.testList

--
runUTs :: IO Counts
runUTs = runTestTT (TestList [
    Service_Greeter_AnonymousUT.testList,
    Service_Greeter_OnymousUT.testList])

--