

main :: IO()
main = do
  -- tests for functions from src/MonoidAssoc.hs
  monoidAssocTest
  monoidBullTest



-- Testing an invalid Monoid
-- The test below should fail.
--
-- The reason is that mempty is Fools and any value
-- passed for mappend converts into Fools.