--
module Control.Greeter.CommonIT (testList)
where

    import Test.MUnit (assertEqualM)
    import Control.Greeter.Common (greetingM)

--
    testList :: IO ()
    testList =
        mapM_ id greetingMCases

-- greetingM :: Greement -> IO ()
    greetingMCases :: [IO ()]
    greetingMCases = [
        assertEqualM
            "should return greetingM"
            ()
            (greetingM "Jimi")]

--