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

    import Test.MUnit (assertEqualM)
    import Control.Greeter.Onymous (onymousGreetingM)

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

-- onymousGreetingM :: Greetee -> IO Greement
    onymousGreetingMCases :: [IO ()]
    onymousGreetingMCases = [
        assertEqualM
            "should return onymousGreetingM"
            "Hello, Jimi!"
            (onymousGreetingM "Jimi")]

--