test suite infra for testing mocked ssh remotes
This commit was supported by the NSF-funded DataLad project.
This commit is contained in:
parent
d674fd5a69
commit
002513e194
3 changed files with 68 additions and 21 deletions
|
@ -1,6 +1,6 @@
|
|||
{- git-annex test data types.
|
||||
-
|
||||
- Copyright 2011-2015 Joey Hess <id@joeyh.name>
|
||||
- Copyright 2011-2017 Joey Hess <id@joeyh.name>
|
||||
-
|
||||
- Licensed under the GNU GPL version 3 or higher.
|
||||
-}
|
||||
|
@ -13,19 +13,24 @@ module Types.Test where
|
|||
import Test.Tasty.Options
|
||||
import Data.Monoid
|
||||
import Prelude
|
||||
import Types.Command
|
||||
#endif
|
||||
|
||||
#ifdef WITH_TESTSUITE
|
||||
data TestOptions = TestOptions
|
||||
{ tastyOptionSet :: OptionSet
|
||||
, keepFailuresOption :: Bool
|
||||
, fakeSsh :: Bool
|
||||
, internalData :: CmdParams
|
||||
}
|
||||
|
||||
instance Monoid TestOptions where
|
||||
mempty = TestOptions mempty False
|
||||
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)
|
||||
|
||||
#else
|
||||
type TestOptions = ()
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue