Move tests from tests/ghc-regress/* to just tests/*
[ghc.git] / testsuite / tests / driver / T4437.hs
1
2 module Main (main) where
3
4 import Data.List
5 import DynFlags
6 import Language.Haskell.Extension
7
8 main :: IO ()
9 main = do let ghcExtensions = [ ext | (ext, _, _, _) <- xFlags ]
10 cabalExtensions = map show [ toEnum 0 :: KnownExtension .. ]
11 ghcOnlyExtensions = ghcExtensions \\ cabalExtensions
12 -- These are extensions which are deliberately not yet
13 -- registered with Cabal
14 expectedGhcOnlyExtensions
15 = ["ParallelArrays",
16 "RelaxedLayout",
17 "DeriveGeneric",
18 "DefaultSignatures",
19 "InterruptibleFFI",
20 "AlternativeLayoutRule",
21 "AlternativeLayoutRuleTransitional",
22 "MonadComprehensions"]
23 unexpectedGhcOnlyExtension = ghcOnlyExtensions
24 \\ expectedGhcOnlyExtensions
25 mapM_ putStrLn unexpectedGhcOnlyExtension
26