cabal-install/tests/UnitTests/Options.hs

   1 {-# LANGUAGE DeriveDataTypeable #-}
   2
   3 module UnitTests.Options
   4   ( OptionShowSolverLog (..)
   5   , OptionMtimeChangeDelay (..)
   6   , RunNetworkTests (..)
   7   , extraOptions
   8   )
   9 where
  10
  11 import Data.Proxy
  12 import Data.Typeable
  13
  14 import Test.Tasty.Options
  15
  16 {-------------------------------------------------------------------------------
  17   Test options
  18 -------------------------------------------------------------------------------}
  19
  20 extraOptions :: [OptionDescription]
  21 extraOptions =
  22   [ Option (Proxy :: Proxy OptionShowSolverLog)
  23   , Option (Proxy :: Proxy OptionMtimeChangeDelay)
  24   , Option (Proxy :: Proxy RunNetworkTests)
  25   ]
  26
  27 newtype OptionShowSolverLog = OptionShowSolverLog Bool
  28   deriving (Typeable)
  29
  30 instance IsOption OptionShowSolverLog where
  31   defaultValue = OptionShowSolverLog False
  32   parseValue = fmap OptionShowSolverLog . safeReadBool
  33   optionName = return "show-solver-log"
  34   optionHelp = return "Show full log from the solver"
  35   optionCLParser = flagCLParser Nothing (OptionShowSolverLog True)
  36
  37 newtype OptionMtimeChangeDelay = OptionMtimeChangeDelay Int
  38   deriving (Typeable)
  39
  40 instance IsOption OptionMtimeChangeDelay where
  41   defaultValue = OptionMtimeChangeDelay 0
  42   parseValue = fmap OptionMtimeChangeDelay . safeRead
  43   optionName = return "mtime-change-delay"
  44   optionHelp =
  45     return $
  46       "How long to wait before attempting to detect"
  47         ++ "file modification, in microseconds"
  48
  49 newtype RunNetworkTests = RunNetworkTests Bool
  50   deriving (Typeable)
  51
  52 instance IsOption RunNetworkTests where
  53   defaultValue = RunNetworkTests True
  54   parseValue = fmap RunNetworkTests . safeReadBool
  55   optionName = return "run-network-tests"
  56   optionHelp = return "Run tests that need network access (default true)."