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

module Main where

import Test.Framework (defaultMain, testGroup)

import qualified Snap.Internal.Http.Parser.Tests
import qualified Snap.Internal.Http.Server.Tests
main :: IO ()
main = defaultMain tests
  where 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
                ]