2015-07-13 17:19:20 +00:00
|
|
|
{- git-annex test data types.
|
|
|
|
-
|
2022-03-16 18:42:07 +00:00
|
|
|
- Copyright 2011-2022 Joey Hess <id@joeyh.name>
|
2015-07-13 17:19:20 +00:00
|
|
|
-
|
2019-03-13 19:48:14 +00:00
|
|
|
- Licensed under the GNU AGPL version 3 or higher.
|
2015-07-13 17:19:20 +00:00
|
|
|
-}
|
|
|
|
|
|
|
|
module Types.Test where
|
|
|
|
|
|
|
|
import Test.Tasty.Options
|
Fix build with ghc 8.4+, which broke due to the Semigroup Monoid change
https://prime.haskell.org/wiki/Libraries/Proposals/SemigroupMonoid
I am not happy with the fragile pile of CPP boilerplate required to support
ghc back to 7.0, which git-annex still targets for both the android build
and the standalone build targeting old linux kernels. It makes me unlikely
to want to use Semigroup more in git-annex, because the benefit of the
abstraction is swamped by the ugliness. I actually considered ripping out
all the Semigroup instances, but some are needed to use
optparse-applicative.
The problem, I think, is they made this transaction on too fast a timeline.
(Although ironically, work on it started in 2015 or earlier!)
In particular, Debian oldstable is not out of security support, and it's
not possible to follow the simpler workarounds documented on the wiki and
have it build on oldstable (because the semigroups package in it is too
old).
I have only tested this build with ghc 8.2.2, not the newer and older
versions that branches of the CPP support. So there could be typoes, we'll
see.
This commit was sponsored by Brock Spratlen on Patreon.
2018-05-30 16:28:43 +00:00
|
|
|
|
2022-03-16 18:42:07 +00:00
|
|
|
import Types.Concurrency
|
2017-03-17 23:13:52 +00:00
|
|
|
import Types.Command
|
2022-09-22 19:58:45 +00:00
|
|
|
import Git.Types
|
2015-07-13 17:19:20 +00:00
|
|
|
|
2016-01-06 17:44:12 +00:00
|
|
|
data TestOptions = TestOptions
|
|
|
|
{ tastyOptionSet :: OptionSet
|
|
|
|
, keepFailuresOption :: Bool
|
2017-03-17 23:13:52 +00:00
|
|
|
, fakeSsh :: Bool
|
2022-03-16 18:42:07 +00:00
|
|
|
, concurrentJobs :: Maybe Concurrency
|
2022-09-22 19:58:45 +00:00
|
|
|
, testGitConfig :: [(ConfigKey, ConfigValue)]
|
2022-11-28 19:12:53 +00:00
|
|
|
, testDebug :: Bool
|
2017-03-17 23:13:52 +00:00
|
|
|
, internalData :: CmdParams
|
2016-01-06 17:44:12 +00:00
|
|
|
}
|
|
|
|
|
2015-07-13 17:19:20 +00:00
|
|
|
type TestRunner = TestOptions -> IO ()
|