]> Git — Sourcephile - haskell/symantic-http.git/blob - test/Hspec.hs
Rename MIME types
[haskell/symantic-http.git] / 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]