remove accessor tests

Author: leana8959

Cabal-tests/tests/ParserTests.hs

@@ -43,7 +43,6 @@ import Data.TreeDiff.Instances.Cabal ()
 tests :: TestTree
 tests = testGroup "parsec tests"
     [ regressionTests
-    , accessorsTests
     , warningTests
     , errorTests
     , ipiTests
@@ -153,40 +152,6 @@ errorTest fp = cabalGoldenTest fp correct $ do
     input = "tests" </> "ParserTests" </> "errors" </> fp
     correct = replaceExtension input "errors"
 
--------------------------------------------------------------------------------
--- Merging accessors tests
--------------------------------------------------------------------------------
-
-accessorsTests :: TestTree
-accessorsTests = testGroup "accessors"
-    [
-#ifdef MIN_VERSION_tree_diff
-      accessorsGoldenTestCondLibrary
-        [ "library-merging.cabal"
-        ]
-#endif
-    ]
-
-#ifdef MIN_VERSION_tree_diff
-accessorsGoldenTestCondLibrary :: [FilePath] -> TestTree
-accessorsGoldenTestCondLibrary = testGroup "condLibrary" . map (accessorsGoldenTest condLibrary)
-
-accessorsGoldenTest
-  :: ToExpr a
-  => (GenericPackageDescription -> a)
-  -> FilePath -> TestTree
-accessorsGoldenTest f fp = ediffGolden goldenTest fp exprFile $ do
-    contents <- BS.readFile input
-    let res = withSource (PCabalFile (fp, contents)) $ parseGenericPackageDescription contents
-    let (_, x) = runParseResult res
-    case x of
-        Right gpd      -> pure . toExpr $ f gpd
-        Left (_, errs) -> fail $ unlines $ "ERROR" : map (showPErrorWithSource . fmap renderCabalFileSource) (NE.toList errs)
-  where
-    input = "tests" </> "ParserTests" </> "accessors" </> fp
-    exprFile = replaceExtension input "expr"
-#endif
-
 -------------------------------------------------------------------------------
 -- Regressions
 -------------------------------------------------------------------------------