test suite infra for testing mocked ssh remotes

This commit was supported by the NSF-funded DataLad project.

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 = ()