From 874252edbd9326445f288a1e90cdb422da23e6f8 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 21 May 2019 13:03:20 +0200 Subject: [PATCH] Fix test --- test/Handler/Utils/SubmissionSpec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/Handler/Utils/SubmissionSpec.hs b/test/Handler/Utils/SubmissionSpec.hs index 32aba67df..3e05115dc 100644 --- a/test/Handler/Utils/SubmissionSpec.hs +++ b/test/Handler/Utils/SubmissionSpec.hs @@ -162,7 +162,7 @@ spec = withApp . describe "Submission distribution" $ do distributionExample (return [ (n, loads) | n <- ns' ]) (\subs corrs -> do - tutSubmissions <- liftIO $ getRandomR (1,50) + tutSubmissions <- liftIO $ getRandomR (5,10) subs' <- liftIO $ shuffleM subs forM_ (take tutSubmissions subs') $ \(Entity subId Submission{..}) -> do Entity _ SheetCorrector{..} <- liftIO $ uniform corrs