From e77cdc025b0e80049344f258d9ca170d0953d0d7 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Fri, 15 Jan 2021 21:11:30 -0500 Subject: Implement Biz.Test with tasty Also changes the --test option to a 'test' command. This is because running the tests for a namespace/exe should never be combined with anything else: you either want to run the tests, or not. --- Biz/Bild.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'Biz/Bild.hs') diff --git a/Biz/Bild.hs b/Biz/Bild.hs index 60ad97a..0fd5bb4 100644 --- a/Biz/Bild.hs +++ b/Biz/Bild.hs @@ -119,6 +119,8 @@ import Alpha hiding (sym, (<.>)) import qualified Biz.Cli as Cli import Biz.Namespace (Namespace (..)) import qualified Biz.Namespace as Namespace +import Biz.Test ((@=?)) +import qualified Biz.Test as Test import qualified Data.Char as Char import qualified Data.List as List import qualified Data.String as String @@ -135,7 +137,7 @@ import qualified Prelude main :: IO () main = Cli.main <| Cli.Plan help move test where - test _ = Exit.exitSuccess + test = Test.group "Biz.Bild" [Test.unit "id" <| 1 @=? 1] move args = mapM getNamespace (Docopt.getAllArgs args (Docopt.argument "target")) /> catMaybes -- cgit v1.2.3