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

test: scale down examAutoOccurrence tests for performance

Browse Source
This commit is contained in:
Gregor Kleen 2021-03-16 17:22:53 +01:00
parent 600bbe5d7e
commit badadff1e9
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/ExamSpec.hs
View File

@ -150,7 +150,7 @@ spec = do
-- | generate users without any pre-assigned rooms -- | generate users without any pre-assigned rooms
genUsersWithOccurrences :: Preselection -> Gen (Map UserId (User, Maybe ExamOccurrenceId), Map ExamOccurrenceId Natural) genUsersWithOccurrences :: Preselection -> Gen (Map UserId (User, Maybe ExamOccurrenceId), Map ExamOccurrenceId Natural)
genUsersWithOccurrences preselection = do 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 occurrences <- genOccurrences $ length rawUsers
-- user surnames anpassen, sodass interessante instanz -- user surnames anpassen, sodass interessante instanz
users <- fmap Map.fromList $ forM rawUsers $ \Entity {entityKey, entityVal} -> do users <- fmap Map.fromList $ forM rawUsers $ \Entity {entityKey, entityVal} -> do