summaryrefslogtreecommitdiff
path: root/tests/Test.hs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/Test.hs')
-rw-r--r--tests/Test.hs59
1 files changed, 23 insertions, 36 deletions
diff --git a/tests/Test.hs b/tests/Test.hs
index b7e96d6..3921890 100644
--- a/tests/Test.hs
+++ b/tests/Test.hs
@@ -28,11 +28,14 @@ import Test.HUnit
-- ---------------------------------------------------------------------
-data GHCVersion = GHC710 | GHC80 | GHC82 | GHC84 deriving (Eq, Ord, Show)
+data GHCVersion = GHC710 | GHC80 | GHC82 | GHC84 | GHC86
+ deriving (Eq, Ord, Show)
ghcVersion :: GHCVersion
ghcVersion =
-#if __GLASGOW_HASKELL__ > 802
+#if __GLASGOW_HASKELL__ > 804
+ GHC86
+#elif __GLASGOW_HASKELL__ > 802
GHC84
#elif __GLASGOW_HASKELL__ > 800
GHC82
@@ -46,13 +49,15 @@ ghcVersion =
testDirs :: [FilePath]
testDirs =
case ghcVersion of
- GHC710 -> ["ghc710-only","ghc710"]
- GHC80 -> ["ghc710", "ghc80"]
- GHC82 -> ["ghc710", "ghc80", "ghc82"]
- GHC84 -> ["ghc710", "ghc80", "ghc82", "ghc84" ]
- -- GHC84 -> ["ghc710", "ghc80", "ghc82", "ghc84", "ghc84-copied"]
- -- GHC84 -> ["ghc84-copied"]
- -- GHC84 -> ["ghc84"]
+ GHC710 -> ["ghc710-only","ghc710", "vect"]
+ GHC80 -> [ "ghc710", "ghc80", "vect"]
+ GHC82 -> ["pre-ghc86", "ghc710", "ghc80", "ghc82", "vect"]
+ GHC84 -> ["pre-ghc86", "ghc710", "ghc80", "ghc82", "ghc84", "vect" ]
+ GHC86 -> [ "ghc710", "ghc80", "ghc82", "ghc84", "ghc86" ]
+
+ -- GHC86 -> [ "ghc710", "ghc80", "ghc82", "ghc84"]
+ -- GHC86 -> ["ghc86-copied"]
+ -- GHC86 -> ["ghc86"]
-- ---------------------------------------------------------------------
@@ -192,39 +197,21 @@ tr = hSilence [stderr] $ do
tt' :: IO (Counts,Int)
tt' = runTestText (putTextToHandle stdout True) $ TestList [
- -- mkPrettyRoundtrip "ghc80" "Zwaluw.hs"
- -- mkPrettyRoundtrip "ghc80" "pmc007.hs"
- -- mkPrettyRoundtrip "ghc80" "MultiQuote.hs"
- -- mkPrettyRoundtrip "ghc80" "T10689a.hs"
-- mkPrettyRoundtrip "ghc82" "TensorTests.hs"
- -- mkParserTest "ghc84" "Main.hs"
- -- mkParserTest "ghc84" "Types.hs"
- -- , mkPrettyRoundtrip "ghc80" "BundleExport.hs"
- -- , mkPrettyRoundtrip "ghc80" "ExportSyntax.hs"
- -- , mkPrettyRoundtrip "ghc80" "export-class.hs"
- -- , mkPrettyRoundtrip "ghc80" "export-syntax.hs"
- -- , mkPrettyRoundtrip "ghc80" "export-type.hs"
-
- -- mkPrettyRoundtrip "ghc84" "Main.hs"
- -- mkPrettyRoundtrip "ghc84" "Types.hs"
+ mkParserTest "ghc710" "GADTContext.hs"
- mkPrettyRoundtrip "ghc80" "Vta1.hs"
- , mkPrettyRoundtrip "ghc80" "Vta2.hs"
+ -- mkParserTest "ghc86" "deriving-via-compile.hs"
+ -- mkParserTest "pre-ghc86" "TensorTests.hs"
+ -- , mkParserTest "pre-ghc86" "Webhook.hs"
+ -- , mkParserTest "ghc710" "RdrNames.hs"
- -- mkParserTest "ghc80" "BundleExport.hs"
+ -- mkPrettyRoundtrip "ghc86" "BinDU.hs"
+ -- , mkPrettyRoundtrip "ghc86" "Dial.hs"
- -- , mkParserTest "ghc710" "TypeOperators.hs"
- -- , mkParserTest "ghc80" "TestUtils.hs"
-
- -- mkParserTest "ghc84" "Functors.hs"
- -- , mkParserTest "ghc80" "MonadT.hs"
-
- -- mkParserTest "ghc80" "SemicolonIf.hs"
- -- mkParserTest "ghc80" "T10689a.hs"
- -- mkParserTest "ghc80" "MonadT.hs"
- -- mkParserTest "ghc710" "Ann01.hs"
+ -- mkParserTest "ghc84" "Types.hs"
+ -- , mkPrettyRoundtrip "ghc80" "export-type.hs"
-- Needs GHC changes
-- mkParserTest "failing" "CtorOp.hs"