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

chore: fix tests

Browse Source
This commit is contained in:
Gregor Kleen 2020-02-07 21:50:48 +01:00
parent 82922ee6eb
commit cfa58b22ce
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Exam/Correct.hs
View File

@ -169,7 +169,7 @@ postECorrectR tid ssh csh examn = do
audit $ TransactionExamPartResultDeleted examPartId uid audit $ TransactionExamPartResultDeleted examPartId uid
return Nothing return Nothing
| Just partResult <- mPartResult -> let | Just partResult <- mPartResult -> let
mOld = (examPartResultResult . entityVal) <$> mOldResult mOld = examPartResultResult . entityVal <$> mOldResult
mNew = ExamAttended <$> mPartResult mNew = ExamAttended <$> mPartResult
resultVal = _entityVal . _examPartResultResult resultVal = _entityVal . _examPartResultResult
in if in if

4
test/Handler/HomeSpec.hs
View File

@ -10,7 +10,7 @@ spec = withApp $ do
it "loads the index and checks it looks right" $ do it "loads the index and checks it looks right" $ do
request $ do request $ do
setMethod "GET" setMethod "GET"
setUrl HomeR setUrl NewsR
addRequestHeader ("Accept-Language", "de") addRequestHeader ("Accept-Language", "de")
statusIs 200 statusIs 200
htmlAnyContain "h1" "Aktuelle Termine" htmlAnyContain "h1" "Aktuelles"