Permalink
Browse files

Add small diagnostic putStrLn when shutting down servers.

  • Loading branch information...
1 parent 45ebfb3 commit 40ddb9e27813787f8d5140140249e432f2c6ea51 @gregorycollins gregorycollins committed Sep 18, 2012
Showing with 5 additions and 3 deletions.
  1. +5 −3 test/suite/TestSuite.hs
View
@@ -46,18 +46,20 @@ main = withSocketsDo $ do
Test.Blackbox.startTestServer port sslport
defaultMain (tests ++ concatMap blackbox bends) `finally` do
+ putStrLn "shutting down test servers..."
mapM_ killThread $ map fst tinfos
mapM_ takeMVar $ map snd tinfos
- where tests =
- [ testGroup "Snap.Internal.Http.Parser.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
, testGroup "Snap.Internal.Http.Server.TimeoutManager.Tests"
Snap.Internal.Http.Server.TimeoutManager.Tests.tests
]
- blackbox (port, sslport) =
+
+ blackbox (port, sslport) =
[ testGroup ("Test.Blackbox")
$ Test.Blackbox.tests port
, testGroup ("Test.Blackbox SSL")

0 comments on commit 40ddb9e

Please sign in to comment.