snap-server-0.2.11: test/suite/TestSuite.hs

module Main where

import Test.Framework (defaultMain, testGroup)

import qualified Data.Concurrent.HashMap.Tests
import qualified Snap.Internal.Http.Parser.Tests
import qualified Snap.Internal.Http.Server.Tests

main :: IO ()
main = defaultMain tests
  where tests = [ testGroup "Data.Concurrent.HashMap.Tests"
                            Data.Concurrent.HashMap.Tests.tests
                , testGroup "Snap.Internal.Http.Parser.Tests"
                            Snap.Internal.Http.Parser.Tests.tests
                , testGroup "Snap.Internal.Http.Server.Tests"
                            Snap.Internal.Http.Server.Tests.tests
                ]