From c78119b0547cd9ef266db04a91a4d0e5be8340a8 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Thu, 18 Feb 2021 08:44:19 -0500 Subject: Move runTests to Biz.Test.run --- Biz/Test.hs | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'Biz/Test.hs') diff --git a/Biz/Test.hs b/Biz/Test.hs index fdd89f8..994a7ce 100644 --- a/Biz/Test.hs +++ b/Biz/Test.hs @@ -5,6 +5,7 @@ -- : dep tasty-quickcheck module Biz.Test ( Tree, + run, group, unit, prop, @@ -17,12 +18,24 @@ module Biz.Test where import Alpha hiding (group) +import qualified Data.Text as Text import qualified Test.Tasty as Tasty import qualified Test.Tasty.HUnit as HUnit import qualified Test.Tasty.QuickCheck as QuickCheck +import qualified Test.Tasty.Runners as Tasty type Tree = Tasty.TestTree +run :: Tree -> IO () +run 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 + + group :: Tasty.TestName -> [Tasty.TestTree] -> Tasty.TestTree group = Tasty.testGroup -- cgit v1.2.3