This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "snap-server".
The branch, master has been updated
via 2a39406dc8a746dd9e2da02750c6a0f45d9a8ba1 (commit)
from ef7def97a0f419372f8dda30376108bf24a57b56 (commit)
Summary of changes:
snap-server.cabal | 5 +-
test/suite/Snap/Internal/Http/Server/Tests.hs | 56 ++++++++++++------------
test/suite/Test/Blackbox.hs | 13 ++++++
test/suite/TestSuite.hs | 3 +
4 files changed, 46 insertions(+), 31 deletions(-)
create mode 100644 test/suite/Test/Blackbox.hs
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 2a39406dc8a746dd9e2da02750c6a0f45d9a8ba1
Author: Gregory Collins <[email protected]>
Date: Thu Sep 9 15:06:32 2010 -0400
Add test skeleton for blackbox testing
diff --git a/snap-server.cabal b/snap-server.cabal
index 404532e..e0b1ab5 100644
--- a/snap-server.cabal
+++ b/snap-server.cabal
@@ -57,22 +57,21 @@ extra-source-files:
README.SNAP.md,
test/benchmark/Benchmark.hs,
test/benchmark/Snap/Internal/Http/Parser/Benchmark.hs,
+ test/common/Paths_snap_server.hs,
+ test/common/Test/Common/TestHandler.hs
test/data/fileServe/foo.bin,
test/data/fileServe/foo.bin.bin.bin,
test/data/fileServe/foo.html,
test/data/fileServe/foo.txt,
test/pongserver/Main.hs,
- test/pongserver/Paths_snap_server.hs,
test/runTestsAndCoverage.sh,
test/snap-server-testsuite.cabal,
- test/suite/Paths_snap_server.hs,
test/suite/Data/Concurrent/HashMap/Tests.hs,
test/suite/Snap/Internal/Http/Parser/Tests.hs,
test/suite/Snap/Internal/Http/Server/Tests.hs,
test/suite/Snap/Test/Common.hs,
test/suite/TestSuite.hs,
test/testserver/Main.hs,
- test/testserver/Paths_snap_server.hs,
test/testserver/static/hello.txt
diff --git a/test/suite/Snap/Internal/Http/Server/Tests.hs
b/test/suite/Snap/Internal/Http/Server/Tests.hs
index 9d7da9a..d2c0baf 100644
--- a/test/suite/Snap/Internal/Http/Server/Tests.hs
+++ b/test/suite/Snap/Internal/Http/Server/Tests.hs
@@ -5,37 +5,37 @@
module Snap.Internal.Http.Server.Tests
( tests ) where
-import Control.Concurrent
-import Control.Exception (try, SomeException)
-import Control.Monad
+import Control.Concurrent
+import Control.Exception (try, SomeException)
+import Control.Monad
import "monads-fd" Control.Monad.Trans
-import qualified Data.ByteString as S
-import qualified Data.ByteString.Lazy as L
-import qualified Data.ByteString.Lazy.Char8 as LC
-import Data.ByteString (ByteString)
-import Data.ByteString.Internal (c2w, w2c)
-import Data.Char
-import Data.Int
-import Data.IORef
-import Data.Iteratee.WrappedByteString
-import qualified Data.Map as Map
-import Data.Maybe (fromJust)
-import Data.Monoid
-import Data.Time.Calendar
-import Data.Time.Clock
-import Data.Word
-import qualified Network.HTTP as HTTP
-import Prelude hiding (take)
-import qualified Prelude
-import Test.Framework
-import Test.Framework.Providers.HUnit
-import Test.HUnit hiding (Test, path)
-
-
-import Snap.Internal.Http.Types
-import Snap.Internal.Http.Server
-import Snap.Iteratee
-import Snap.Types
+import qualified Data.ByteString as S
+import qualified Data.ByteString.Lazy as L
+import qualified Data.ByteString.Lazy.Char8 as LC
+import Data.ByteString (ByteString)
+import Data.ByteString.Internal (c2w, w2c)
+import Data.Char
+import Data.Int
+import Data.IORef
+import Data.Iteratee.WrappedByteString
+import qualified Data.Map as Map
+import Data.Maybe (fromJust)
+import Data.Monoid
+import Data.Time.Calendar
+import Data.Time.Clock
+import Data.Word
+import qualified Network.HTTP as HTTP
+import Prelude hiding (take)
+import qualified Prelude
+import Test.Framework
+import Test.Framework.Providers.HUnit
+import Test.HUnit hiding (Test, path)
+
+
+import Snap.Internal.Http.Types
+import Snap.Internal.Http.Server
+import Snap.Iteratee
+import Snap.Types
tests :: [Test]
diff --git a/test/suite/Test/Blackbox.hs b/test/suite/Test/Blackbox.hs
new file mode 100644
index 0000000..d5ae3ee
--- /dev/null
+++ b/test/suite/Test/Blackbox.hs
@@ -0,0 +1,13 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE PackageImports #-}
+
+module Test.Blackbox
+ ( tests ) where
+
+
+import Test.Framework
+
+
+tests :: [Test]
+tests = []
diff --git a/test/suite/TestSuite.hs b/test/suite/TestSuite.hs
index 9a541e5..ddf663a 100644
--- a/test/suite/TestSuite.hs
+++ b/test/suite/TestSuite.hs
@@ -5,6 +5,7 @@ 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
+import qualified Test.Blackbox
main :: IO ()
main = defaultMain tests
@@ -14,4 +15,6 @@ main = defaultMain tests
Snap.Internal.Http.Parser.Tests.tests
, testGroup "Snap.Internal.Http.Server.Tests"
Snap.Internal.Http.Server.Tests.tests
+ , testGroup "Test.Blackbox"
+ Test.Blackbox.tests
]
-----------------------------------------------------------------------
hooks/post-receive
--
snap-server
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
