test: scale down examAutoOccurrence tests for performance

2021-03-16 17:22:53 +01:00 · 2021-03-16 17:22:53 +01:00 · badadff1e9
commit badadff1e9
parent 600bbe5d7e
1 changed files with 1 additions and 1 deletions
--- a/test/Handler/Utils/ExamSpec.hs
+++ b/test/Handler/Utils/ExamSpec.hs
@ -150,7 +150,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 (50 *) $ listOf $ Entity <$> arbitrary <*> arbitrary
+            rawUsers <- listOf $ Entity <$> arbitrary <*> arbitrary -- consider applying `scale (50 *)` to uncover additional issues
            occurrences <- genOccurrences $ length rawUsers
            -- user surnames anpassen, sodass interessante instanz
            users <- fmap Map.fromList $ forM rawUsers $ \Entity {entityKey, entityVal} -> do