test/Hspec.hs

   1 module Hspec where
   2 import Control.Monad (Monad(..))
   3 import Data.Function (($))
   4 import Data.Semigroup (Semigroup(..))
   5 import System.IO (IO)
   6 import Test.Tasty
   7 import qualified Hspec.API
   8 import qualified Hspec.Client
   9 import qualified Hspec.Server
  10
  11 hspec :: IO TestTree
  12 hspec = do
  13         hspec_api <- Hspec.API.hspec
  14         hspec_client <- Hspec.Client.hspec
  15         hspec_server <- Hspec.Server.hspec
  16         return $ testGroup "Hspec" $
  17                 hspec_api
  18                 <> hspec_client
  19                 <> [hspec_server]