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 c85d5f115bad894eb6de3f69830198c3be2becc9 (commit)
from 8940dab509bab5f796993bfd5f20c511081f0199 (commit)
Summary of changes:
test/suite/Test/Blackbox.hs | 4 ++--
1 files changed, 2 insertions(+), 2 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 c85d5f115bad894eb6de3f69830198c3be2becc9
Author: Gregory Collins <[email protected]>
Date: Fri Apr 29 21:37:11 2011 +0200
Run fewer upload tests, wait longer after spawning server
diff --git a/test/suite/Test/Blackbox.hs b/test/suite/Test/Blackbox.hs
index c19b5f1..e1ec0a5 100644
--- a/test/suite/Test/Blackbox.hs
+++ b/test/suite/Test/Blackbox.hs
@@ -89,7 +89,7 @@ startTestServer port sslport backend = do
(httpServe cfg' testHandler)
`catch` \(_::SomeException) -> return ()
putMVar mvar ()
- waitabit
+ threadDelay $ 4*seconds
return (tid,mvar)
@@ -161,7 +161,7 @@ testFileUpload :: Bool -> Int -> String -> Test
testFileUpload ssl port name =
plusTestOptions testOptions $
testProperty (name ++ "/blackbox/upload") $
- QC.mapSize (if ssl then min 100 else id) $
+ QC.mapSize (if ssl then min 100 else min 300) $
monadicIO $
forAllM arbitrary prop
where
-----------------------------------------------------------------------
hooks/post-receive
--
snap-server
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
