TestSuite.hs

module Main where

import Test.Framework (defaultMain, testGroup)

------------------------------------------------------------------------------
import qualified Snap.Core.Tests
import qualified Snap.Internal.Http.Types.Tests
import qualified Snap.Internal.Parsing.Tests
import qualified Snap.Internal.Routing.Tests
import qualified Snap.Iteratee.Tests
import qualified Snap.Util.FileServe.Tests
import qualified Snap.Util.FileUploads.Tests
import qualified Snap.Util.GZip.Tests
import qualified Snap.Util.Proxy.Tests
import qualified Snap.Test.Tests


------------------------------------------------------------------------------
main :: IO ()
main = defaultMain tests
  where
    tests = [ testGroup "Snap.Internal.Http.Types.Tests"
                        Snap.Internal.Http.Types.Tests.tests
            , testGroup "Snap.Internal.Routing.Tests"
                        Snap.Internal.Routing.Tests.tests
            , testGroup "Snap.Core.Tests"
                        Snap.Core.Tests.tests
            , testGroup "Snap.Iteratee.Tests"
                        Snap.Iteratee.Tests.tests
            , testGroup "Snap.Internal.Parsing.Tests"
                        Snap.Internal.Parsing.Tests.tests
            , testGroup "Snap.Util.FileServe.Tests"
                        Snap.Util.FileServe.Tests.tests
            , testGroup "Snap.Util.FileUploads.Tests"
                        Snap.Util.FileUploads.Tests.tests
            , testGroup "Snap.Util.Proxy.Tests"
                        Snap.Util.Proxy.Tests.tests
            , testGroup "Snap.Util.GZip.Tests"
                        Snap.Util.GZip.Tests.tests
            , testGroup "Snap.Test.Tests"
                        Snap.Test.Tests.tests
            ]