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 bbce5a3d77a4f2bdbccf713aabbea1a2d0a74cd9 (commit)
from bf25c81143baeff40ff23add6df62e9a19510ff4 (commit)
Summary of changes:
test/suite/Snap/Internal/Http/Server/Tests.hs | 8 +++++++-
1 files changed, 7 insertions(+), 1 deletions(-)
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 bbce5a3d77a4f2bdbccf713aabbea1a2d0a74cd9
Author: Gregory Collins <[email protected]>
Date: Sun Sep 19 23:03:19 2010 -0400
Cover snapServerVersion in Snap.Http.Server
diff --git a/test/suite/Snap/Internal/Http/Server/Tests.hs
b/test/suite/Snap/Internal/Http/Server/Tests.hs
index d2c0baf..b68325a 100644
--- a/test/suite/Snap/Internal/Http/Server/Tests.hs
+++ b/test/suite/Snap/Internal/Http/Server/Tests.hs
@@ -31,6 +31,7 @@ import Test.Framework
import Test.Framework.Providers.HUnit
import Test.HUnit hiding (Test, path)
+import qualified Snap.Http.Server as Svr
import Snap.Internal.Http.Types
import Snap.Internal.Http.Server
@@ -55,9 +56,14 @@ tests = [ testHttpRequest1
, testMethodParsing
, testServerStartupShutdown
, testChunkOn1_0
- , testSendFile ]
+ , testSendFile
+ , testTrivials]
+testTrivials :: Test
+testTrivials = testCase "server/trivials" $
+ let !x = Svr.snapServerVersion in return $! x `seq` ()
+
------------------------------------------------------------------------------
-- HTTP request tests
-----------------------------------------------------------------------
hooks/post-receive
--
snap-server
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
