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.Router
   9
  10 hspec :: IO TestTree
  11 hspec = do
  12         hspec_api <- Hspec.API.hspec
  13         hspec_router <- Hspec.Router.hspec
  14         return $ testGroup "Hspec" $
  15                 hspec_api <>
  16                 [hspec_router]