Move runTests to Biz.Test.run

1 files changed, 3 insertions, 14 deletions

diff --git a/Biz/Cli.hs b/Biz/Cli.hs
index c144a72..a456fcc 100644
--- a/Biz/Cli.hs
+++ b/Biz/Cli.hs
@@ -18,16 +18,14 @@ module Biz.Cli
 where
 
 import Alpha
-import qualified Data.Text as Text
 import qualified System.Console.Docopt as Docopt
 import qualified System.Environment as Environment
-import qualified Test.Tasty as Tasty
-import qualified Test.Tasty.Runners as Tasty
+import qualified Biz.Test as Test
 
 data Plan cfg = Plan
   { help :: Docopt.Docopt,
     move :: Docopt.Arguments -> IO (),
-    test :: Tasty.TestTree,
+    test :: Test.Tree,
     tidy :: cfg -> IO ()
   }
 
@@ -37,20 +35,11 @@ main Plan {..} =
     +> Docopt.parseArgsOrExit help
     +> \args ->
       if args `has` Docopt.command "test"
-        then runTests test
+        then Test.run test
         else
           if args `has` Docopt.longOption "help"
             then Docopt.exitWithUsage help
             else move args
 
-runTests :: Tasty.TestTree -> IO ()
-runTests tree = do
-  Tasty.installSignalHandlers
-  case Tasty.tryIngredients Tasty.defaultIngredients mempty tree of
-    Nothing -> do
-      hPutStrLn stderr <| Text.pack "no ingredients agreed to run"
-      exitFailure
-    Just act -> act +> \ok -> if ok then exitSuccess else exitFailure
-
 has :: Docopt.Arguments -> Docopt.Option -> Bool
 has = Docopt.isPresent