{-# LANGUAGE NoImplicitPrelude #-}

module Biz.Test
  ( Tree,
    group,
    unit,
    (@=?),
  )
where

-- : dep tasty
-- : dep tasty-hunit
import qualified Test.Tasty as Tasty
import Test.Tasty.HUnit ((@=?))
import qualified Test.Tasty.HUnit as HUnit

type Tree = Tasty.TestTree

group :: Tasty.TestName -> [Tasty.TestTree] -> Tasty.TestTree
group = Tasty.testGroup

unit :: Tasty.TestName -> HUnit.Assertion -> Tasty.TestTree
unit = HUnit.testCase