diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-01-25 01:28:17 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-01-25 01:28:17 +0000 |
| commit | 4a33b6e89e6e8c89cb0b0ed70685ad7b67240744 (patch) | |
| tree | 4ae54f60f999858ff6b4649c943fcecc262ce16b /testsuite/tests/driver/T5313.hs | |
| parent | 3e70ca7a0865f5cf2e7c3134803a4645423da791 (diff) | |
| download | haskell-4a33b6e89e6e8c89cb0b0ed70685ad7b67240744.tar.gz | |
Rename some tests to not start with a digit
Diffstat (limited to 'testsuite/tests/driver/T5313.hs')
| -rw-r--r-- | testsuite/tests/driver/T5313.hs | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/testsuite/tests/driver/T5313.hs b/testsuite/tests/driver/T5313.hs new file mode 100644 index 0000000000..5b73f11adf --- /dev/null +++ b/testsuite/tests/driver/T5313.hs @@ -0,0 +1,18 @@ +import qualified GHC +import System.Environment + +main = do + (libdir:_) <- getArgs + GHC.runGhcT (Just libdir) $ do + -- begin initialize + df0 <- GHC.getSessionDynFlags + let df1 = df0{GHC.ghcMode = GHC.CompManager, + GHC.hscTarget = GHC.HscInterpreted, + GHC.ghcLink = GHC.LinkInMemory, + GHC.verbosity = 0} + _ <- GHC.setSessionDynFlags df1 + -- begin reset + GHC.setContext [] + GHC.setTargets [] + _ <- GHC.load GHC.LoadAllTargets + return () |