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

    import Test.MUnit (assertEqualM)
    import Control.Greeter.Anonymous (anonymousGreetingM)

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

-- anonymousGreetingM :: IO Greement
    anonymousGreetingMCases :: [IO ()]
    anonymousGreetingMCases = [
        assertEqualM
            "should return anonymousGreetingM"
            "Hello, World!"
            (anonymousGreetingM)]

--