-- | Ingredient for listing test names
{-# LANGUAGE CPP, GeneralizedNewtypeDeriving, DeriveDataTypeable #-}
module Test.Tasty.Ingredients.ListTests
( ListTests(..)
, testsNames
, listingTests
) where
import Data.Proxy
import Data.Typeable
import Options.Applicative
#if !MIN_VERSION_base(4,8,0)
import Data.Monoid
#endif
import Test.Tasty.Core
import Test.Tasty.Options
import Test.Tasty.Ingredients
-- | This option, when set to 'True', specifies that we should run in the
-- «list tests» mode
newtype ListTests = ListTests Bool
deriving (Eq, Ord, Typeable)
instance IsOption ListTests where
defaultValue = ListTests False
parseValue = fmap ListTests . safeRead
optionName = return "list-tests"
optionHelp = return "Do not run the tests; just print their names"
optionCLParser = mkFlagCLParser (short 'l') (ListTests True)
-- | Obtain the list of all tests in the suite
testsNames :: OptionSet -> TestTree -> [TestName]
testsNames {- opts -} {- tree -} =
foldTestTree
trivialFold
{ foldSingle = \_opts name _test -> [name]
, foldGroup = \groupName names -> map ((groupName ++ "/") ++) names
}
-- | The ingredient that provides the test listing functionality
listingTests :: Ingredient
listingTests = TestManager [Option (Proxy :: Proxy ListTests)] $
\opts tree ->
case lookupOption opts of
ListTests False -> Nothing
ListTests True -> Just $ do
mapM_ putStrLn $ testsNames opts tree
return True