module Test.Tasty
(
TestName
, TestTree
, testGroup
, defaultMain
, defaultMainWithRunner
, adjustOption
, localOption
)
where
import Test.Tasty.Core
import Test.Tasty.Runners
import Test.Tasty.UI
import Test.Tasty.Options
defaultMain :: TestTree -> IO ()
defaultMain = defaultMainWithRunner runUI
adjustOption :: IsOption v => (v -> v) -> TestTree -> TestTree
adjustOption f = PlusTestOptions $ \opts ->
setOption (f $ lookupOption opts) opts
localOption :: IsOption v => v -> TestTree -> TestTree
localOption v = PlusTestOptions (setOption v)