test: explicitly test *WithComment readFields variant

Author: leana8959

Cabal-tests/tests/ParserTests.hs

@@ -14,7 +14,7 @@ import Control.Monad                               (unless, void)
 import Data.Algorithm.Diff                         (PolyDiff (..), getGroupedDiff)
 import Data.Maybe                                  (isNothing)
 import Distribution.Fields                         (pwarning)
-import Distribution.Fields.Parser                  (readFields', formatError)
+import Distribution.Fields.Parser                  (readFieldsWithComments', formatError)
 import Distribution.PackageDescription             (GenericPackageDescription, exactComments)
 import Distribution.PackageDescription.Parsec
   ( parseGenericPackageDescription
@@ -130,7 +130,7 @@ commentTests = testGroup "comments"
 readFieldTest :: FilePath -> TestTree
 readFieldTest fname = ediffGolden goldenTest fname exprFile $ do
   contents <- BS.readFile input
-  let res = readFields' contents
+  let res = readFieldsWithComments' contents
 
   case res of
     Left perr -> fail $ formatError contents perr