diff options
| author | Daniel Gröber <dxld@darkboxed.org> | 2019-12-29 00:40:55 +0100 |
|---|---|---|
| committer | Daniel Gröber <dxld@darkboxed.org> | 2019-12-29 16:35:59 +0100 |
| commit | 3190dbf95ff9b767205ed21bd519c605bddbe4d8 (patch) | |
| tree | 59f290edb24932ebb4276c23b10c5c26e18be955 /tests/CompileTest.hs | |
| parent | 0c284ed48bd1a531807f5e524894766de8d179bd (diff) | |
compile-test: Add program commandline options
Diffstat (limited to 'tests/CompileTest.hs')
| -rw-r--r-- | tests/CompileTest.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/CompileTest.hs b/tests/CompileTest.hs index 1b024d2..77698c5 100644 --- a/tests/CompileTest.hs +++ b/tests/CompileTest.hs @@ -38,6 +38,8 @@ import CabalHelper.Compiletime.Program.GHC import CabalHelper.Compiletime.Types import CabalHelper.Shared.Common +import TestOptions + withinRange'CH :: Version -> VersionRange -> Bool withinRange'CH v r = withinRange (fromDataVersion v) r @@ -61,11 +63,12 @@ createHOME = do main :: IO () main = do - let ?progs = defaultPrograms + (modProgs, args) <- testOpts =<< getArgs + + let ?progs = modProgs defaultPrograms let ?opts = defaultCompileOptions { oVerbose = True } let ?verbose = \level -> case level of 1 -> True; _ -> False - args <- getArgs case args of "list-versions":[] -> do mapM_ print =<< relevantCabalVersions =<< ghcVersion |