fix: increase size of test instances again (oops)

2021-02-19 16:33:25 +01:00 · 2021-02-19 16:33:25 +01:00 · 4e76fe7e50
commit 4e76fe7e50
parent a559ac74cb
1 changed files with 1 additions and 1 deletions
--- a/test/Handler/Utils/ExamSpec.hs
+++ b/test/Handler/Utils/ExamSpec.hs
@ -158,7 +158,7 @@ spec = do
        -- | generate users without any pre-assigned rooms
        genUsersWithOccurrences :: Preselection -> Gen (Map UserId (User, Maybe ExamOccurrenceId), Map ExamOccurrenceId Natural)
        genUsersWithOccurrences preselection = do
-            rawUsers <- scale (1 *) $ listOf $ Entity <$> arbitrary <*> arbitrary
+            rawUsers <- scale (50 *) $ listOf $ Entity <$> arbitrary <*> arbitrary
            occurrences <- genOccurrences $ length rawUsers
            -- user surnames anpassen, sodass interessante instanz
            users <- fmap Map.fromList $ forM rawUsers $ \Entity {entityKey, entityVal} -> do