diff --git a/tests/Combinator.hs b/tests/Combinator.hs
index ce09f59..1b5d603 100644
--- a/tests/Combinator.hs
+++ b/tests/Combinator.hs
@@ -121,7 +121,6 @@ prop_endBy1 n' c = checkParser p r s
           | c == '-' && n == 0 = posErr 0 s [uneCh '-', exCh 'a']
           | c /= '-'           = posErr (g n) s $ uneCh c :
                                  [exCh '-' | n > 0] ++
-                                 -- [exEof    | n > 1] ++
                                  [exCh 'a' | n == 0]
           | otherwise = Right (replicate n 'a')
         s = intersperse '-' (replicate n 'a') ++ [c]
diff --git a/tests/Expr.hs b/tests/Expr.hs
index a407b8d..aac7a5b 100644
--- a/tests/Expr.hs
+++ b/tests/Expr.hs
@@ -130,7 +130,7 @@ arbitraryN2 0 = Val . getNonNegative <$> arbitrary
 arbitraryN2 n = elements [Sum,Sub,Pro,Div,Exp] <*> leaf <*> leaf
   where leaf = arbitraryN0 (n `div` 2)
 
--- Some helpers put here since we don't want to depend on
+-- Some helpers are put here since we don't want to depend on
 -- "Text.Megaparsec.Lexer".
 
 lexeme :: MonadParsec s m Char => m a -> m a