79857d7e9f
Test suite is always included. Building with this flag disabled has actually been broken for some time, since Command.TestRemote uses tasty. Fewer build flags are better, so good time to drop it. This commit was sponsored by Thomas Hochstein on Patreon.
31 lines
696 B
Haskell
31 lines
696 B
Haskell
{- git-annex test data types.
|
|
-
|
|
- Copyright 2011-2017 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
-}
|
|
|
|
module Types.Test where
|
|
|
|
import Test.Tasty.Options
|
|
import Data.Monoid
|
|
import Prelude
|
|
import Types.Command
|
|
|
|
data TestOptions = TestOptions
|
|
{ tastyOptionSet :: OptionSet
|
|
, keepFailuresOption :: Bool
|
|
, fakeSsh :: Bool
|
|
, internalData :: CmdParams
|
|
}
|
|
|
|
instance Monoid TestOptions where
|
|
mempty = TestOptions mempty False False mempty
|
|
mappend a b = TestOptions
|
|
(tastyOptionSet a <> tastyOptionSet b)
|
|
(keepFailuresOption a || keepFailuresOption b)
|
|
(fakeSsh a || fakeSsh b)
|
|
(internalData a <> internalData b)
|
|
|
|
|
|
type TestRunner = TestOptions -> IO ()
|