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.

1 files changed, 3 insertions, 1 deletions

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