File tree Expand file tree Collapse file tree 1 file changed +12
-3
lines changed Expand file tree Collapse file tree 1 file changed +12
-3
lines changed Original file line number Diff line number Diff line change @@ -234,9 +234,11 @@ resolveOpts opts = do
234
234
235
235
tastyArgs' =
236
236
" --hide-successes"
237
- : case rawTastyPattern opts of
238
- Just tastyPattern -> [" --pattern" , tastyPattern]
239
- Nothing -> []
237
+ : maybe
238
+ []
239
+ (\ tastyPattern -> [" --pattern" , tastyPattern])
240
+ (rawTastyPattern opts)
241
+ ++ rawTastyArgs opts
240
242
241
243
when (rawListSteps opts) $ do
242
244
-- TODO: This should probably list _all_ available steps, not just the selected ones!
@@ -279,6 +281,7 @@ data RawOpts = RawOpts
279
281
, rawCabal :: FilePath
280
282
, rawExtraCompilers :: [FilePath ]
281
283
, rawTastyPattern :: Maybe String
284
+ , rawTastyArgs :: [String ]
282
285
, rawDoctest :: Bool
283
286
, rawSteps :: [Step ]
284
287
, rawListSteps :: Bool
@@ -343,6 +346,12 @@ rawOptsParser =
343
346
<> help " Pattern to filter tests by"
344
347
<> value Nothing
345
348
)
349
+ <*> many
350
+ ( strOption
351
+ ( long " tasty-arg"
352
+ <> help " Extra arguments to pass to Tasty test suites"
353
+ )
354
+ )
346
355
<*> boolOption
347
356
False
348
357
" doctest"
You can’t perform that action at this time.
0 commit comments