diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-03-17 19:13:52 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-03-17 19:14:41 -0400 |
| commit | 002513e19448a5a724303a056c7513e4bf20b142 (patch) | |
| tree | 47a8d3e666d2a9ab1035fa393b15c5b41cba0ffb /Types/Test.hs | |
| parent | d674fd5a69150ce5fde0f424cacc1f5b18a3324c (diff) | |
test suite infra for testing mocked ssh remotes
This commit was supported by the NSF-funded DataLad project.
Diffstat (limited to 'Types/Test.hs')
| -rw-r--r-- | Types/Test.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/Types/Test.hs b/Types/Test.hs index eadf6d29a0..66f263c2e8 100644 --- a/Types/Test.hs +++ b/Types/Test.hs @@ -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 = () |