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

chore(loadtests): don't manually add submittors

Browse Source
This commit is contained in:
Gregor Kleen 2020-05-29 13:49:54 +02:00
parent f2bdc007c9
commit aa8874d941
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
load/Load.hs
View File

@ -263,20 +263,21 @@ runSimulation' LoadSheetSubmission = do
where formURI' = nullURI { uriPath = unpack . Text.intercalate "/" $ "." : formPath }
(formPath, _) = renderRoute $ CSheetR loadTerm loadSchool loadCourse loadSheet SubmissionNewR
resp <- liftIO . Session.get session $ uriToString id formURI mempty
Just formData <- return . getFormData FIDsubmission $ resp ^. responseBody
Just addButtonData <- return . flip (runFormScraper FIDsubmission) (resp ^. responseBody) $ do
let btnSel = "button" Scalpel.@: [Scalpel.hasClass "btn-mass-input-add"]
-- Just formData <- return . getFormData FIDsubmission $ resp ^. responseBody
-- Just addButtonData <- return . flip (runFormScraper FIDsubmission) (resp ^. responseBody) $ do
-- let btnSel = "button" Scalpel.@: [Scalpel.hasClass "btn-mass-input-add"]
name <- Scalpel.attr "name" btnSel
value <- Scalpel.attr "value" btnSel
guard $ value == "add__0__0"
return $ toStrict name := value
let miData = addButtonData : map addEmail formData
where addEmail dat@(name := _)
| "__add__0__fields__emails" `isSuffixOf` name = name := ("loadtest@example.invalid" :: Text)
| otherwise = dat
resp2 <- liftIO $ Session.post session (uriToString id formURI mempty) miData
Just formData2 <- return . getFormData FIDsubmission $ resp2 ^. responseBody
-- name <- Scalpel.attr "name" btnSel
-- value <- Scalpel.attr "value" btnSel
-- guard $ value == "add__0__0"
-- return $ toStrict name := value
-- let miData = addButtonData : map addEmail formData
-- where addEmail dat@(name := _)
-- | "__add__0__fields__emails" `isSuffixOf` name = name := ("loadtest@example.invalid" :: Text)
-- | otherwise = dat
-- resp2 <- liftIO $ Session.post session (uriToString id formURI mempty) miData
-- Just formData2 <- return . getFormData FIDsubmission $ resp2 ^. responseBody
Just formData2 <- return . getFormData FIDsubmission $ resp ^. responseBody
uploadSeed <- liftIO seedNew
chunkCount <- sampleIntegral loadUploadChunks
chunks <- replicateM (fromIntegral chunkCount) $ sampleIntegral loadUploadChunkSize