testsuite: Assert that testsuite ways are known
[ghc.git] / testsuite / tests / driver / T5313.hs
1 import qualified GHC
2 import System.Environment
3
4 main = do
5 (libdir:_) <- getArgs
6 GHC.runGhcT (Just libdir) $ do
7 -- begin initialize
8 df0 <- GHC.getSessionDynFlags
9 let df1 = df0{GHC.ghcMode = GHC.CompManager,
10 GHC.hscTarget = GHC.HscInterpreted,
11 GHC.ghcLink = GHC.LinkInMemory,
12 GHC.verbosity = 0}
13 _ <- GHC.setSessionDynFlags df1
14 -- begin reset
15 GHC.setContext []
16 GHC.setTargets []
17 _ <- GHC.load GHC.LoadAllTargets
18 return ()