1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
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
]
|
