fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix test

Browse Source
This commit is contained in:
Gregor Kleen 2019-05-21 13:03:20 +02:00
parent 37644a242f
commit 874252edbd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/Handler/Utils/SubmissionSpec.hs
View File

@ -162,7 +162,7 @@ spec = withApp . describe "Submission distribution" $ do
distributionExample distributionExample
(return [ (n, loads) | n <- ns' ]) (return [ (n, loads) | n <- ns' ])
(\subs corrs -> do (\subs corrs -> do
tutSubmissions <- liftIO $ getRandomR (1,50) tutSubmissions <- liftIO $ getRandomR (5,10)
subs' <- liftIO $ shuffleM subs subs' <- liftIO $ shuffleM subs
forM_ (take tutSubmissions subs') $ \(Entity subId Submission{..}) -> do forM_ (take tutSubmissions subs') $ \(Entity subId Submission{..}) -> do
Entity _ SheetCorrector{..} <- liftIO $ uniform corrs Entity _ SheetCorrector{..} <- liftIO $ uniform corrs