From d3adb26472436e95da7129494140de545654f105 Mon Sep 17 00:00:00 2001 From: Jappie Klooster Date: Mon, 13 Nov 2023 22:41:53 +0100 Subject: [PATCH] make a non trival test pass --- .../ParserTests/exactPrint/bounded.cabal | 10 ++++++++ Cabal-tests/tests/PrinterTests.hs | 24 ++----------------- 2 files changed, 12 insertions(+), 22 deletions(-) create mode 100644 Cabal-tests/tests/ParserTests/exactPrint/bounded.cabal diff --git a/Cabal-tests/tests/ParserTests/exactPrint/bounded.cabal b/Cabal-tests/tests/ParserTests/exactPrint/bounded.cabal new file mode 100644 index 00000000000..cc17edbe003 --- /dev/null +++ b/Cabal-tests/tests/ParserTests/exactPrint/bounded.cabal @@ -0,0 +1,10 @@ +cabal-version: 3.0 +name: bounded +version: 0 +synopsis: The -any none demo +build-type: Simple + +library + default-language: Haskell2010 + exposed-modules: AnyNone + build-depends: base <5 \ No newline at end of file diff --git a/Cabal-tests/tests/PrinterTests.hs b/Cabal-tests/tests/PrinterTests.hs index f2d268c570c..1a2a96128da 100644 --- a/Cabal-tests/tests/PrinterTests.hs +++ b/Cabal-tests/tests/PrinterTests.hs @@ -55,28 +55,8 @@ tests = testGroup "printer tests" -- Parse some cabal file - print it like cabal file printExact :: TestTree printExact = testGroup "printExact" - [ testParsePrintExact "anynone.cabal" - -- , warningTest "nbsp.cabal" - -- , warningTest "tab.cabal" - -- , warningTest "utf8.cabal" - -- , warningTest "bool.cabal" - -- , warningTest "versiontag.cabal" - -- , warningTest "newsyntax.cabal" - -- , warningTest "oldsyntax.cabal" - -- , warningTest "deprecatedfield.cabal" - -- , warningTest "subsection.cabal" - -- , warningTest "unknownfield.cabal" - -- , warningTest "unknownsection.cabal" - -- , warningTest "trailingfield.cabal" - -- , warningTest "doubledash.cabal" - -- , warningTest "multiplesingular.cabal" - -- , warningTest "wildcard.cabal" - -- , warningTest "operator.cabal" - -- , warningTest "specversion-a.cabal" - -- , warningTest "specversion-b.cabal" - -- , warningTest "specversion-c.cabal" - -- -- TODO: not implemented yet - -- , warningTest PWTExtraTestModule "extratestmodule.cabal" + [ testParsePrintExact "bounded.cabal" + -- , testParsePrintExact "anynone.cabal" -- TODO version ranges ] testParsePrintExact :: FilePath -> TestTree