diff --git a/test/Text/Shakespeare/I18NSpec.hs b/test/Text/Shakespeare/I18NSpec.hs
index c33c205..c170ee6 100644
--- a/test/Text/Shakespeare/I18NSpec.hs
+++ b/test/Text/Shakespeare/I18NSpec.hs
@@ -35,27 +35,3 @@ mkMessage "(YesodSubApp master) => SubApp master" "other-messages" "en"
 
 mkMessage "Test" "test-messages" "en"
 
-
-
-
-{-
-spec :: SpecWith
-         (Arg
-           (Language.Haskell.TH.Syntax.Q [Language.Haskell.TH.Syntax.Dec])) 
-spec = do
-  describe "mkMessage tests" $ do
-    it "works for not parameterized datatypes" $ do
-      mkMessage "Test" "test-messages" "en" 
-
-    it "works for parameterized with just one parameter datatypes" $ do
-      mkMessage "(YesodSubApp master) => SubApp master" "test-messages" "en" 
--}
-
-
-{-
-spec :: Monad m => m ()
-spec = return ()
-
-
--}
-