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

testdata added for studytermcandidates

Browse Source
This commit is contained in:
Steffen Jost 2019-03-13 18:18:31 +01:00
parent 6cce5c05cc
commit 0917b2c580
5 changed files with 61 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
.hlint.yaml
View File

@ -1,5 +1,5 @@
# HLint configuration file # HLint configuration file
# https://github.com/ndmitchell/hlint # https://github.com/ndmitchell/hlint
########################## ##########################
- ignore: { name: "Parse error" } - ignore: { name: "Parse error" }
@ -7,6 +7,7 @@
- ignore: { name: "Use ||" } - ignore: { name: "Use ||" }
- ignore: { name: "Use &&" } - ignore: { name: "Use &&" }
- ignore: { name: "Use ++" } - ignore: { name: "Use ++" }
- ignore: { name: "Use ***" }
- arguments: - arguments:
- -XQuasiQuotes - -XQuasiQuotes

2
db.sh
View File

@ -1,4 +1,4 @@
#!/usr/bin/env -S bash -xe #!/bin/bash
# Options: see /test/Database.hs (Main) # Options: see /test/Database.hs (Main)
stack build --fast --flag uniworx:library-only --flag uniworx:dev stack build --fast --flag uniworx:library-only --flag uniworx:dev
stack exec uniworxdb -- $@ stack exec uniworxdb -- $@

1
messages/uniworx/de.msg
View File

@ -421,6 +421,7 @@ StudyTermsName: Studiengang
StudyTermsShort: Studiengangkürzel StudyTermsShort: Studiengangkürzel
StudyTermsChangeSuccess: Zuordnung Abschlüsse aktualisiert StudyTermsChangeSuccess: Zuordnung Abschlüsse aktualisiert
StudyDegreeChangeSuccess: Zuordnung Studiengänge aktualisiert StudyDegreeChangeSuccess: Zuordnung Studiengänge aktualisiert
StudyCandidateIncidienc: Anmeldevorgang
MailTestFormEmail: Email-Addresse MailTestFormEmail: Email-Addresse
MailTestFormLanguages: Spracheinstellungen MailTestFormLanguages: Spracheinstellungen

6
src/Handler/Admin.hs
View File

@ -217,7 +217,7 @@ postAdminFeaturesR = do
mkDegreeTable = mkDegreeTable =
let dbtIdent = "admin-studydegrees" :: Text let dbtIdent = "admin-studydegrees" :: Text
dbtStyle = def dbtStyle = def
dbtSQLQuery :: (E.SqlExpr (Entity StudyDegree)) -> E.SqlQuery ( E.SqlExpr (Entity StudyDegree)) dbtSQLQuery :: E.SqlExpr (Entity StudyDegree) -> E.SqlQuery ( E.SqlExpr (Entity StudyDegree))
dbtSQLQuery = return dbtSQLQuery = return
dbtRowKey = (E.^. StudyDegreeKey) dbtRowKey = (E.^. StudyDegreeKey)
dbtProj = return dbtProj = return
@ -241,7 +241,7 @@ postAdminFeaturesR = do
mkStudytermsTable = mkStudytermsTable =
let dbtIdent = "admin-studyterms" :: Text let dbtIdent = "admin-studyterms" :: Text
dbtStyle = def dbtStyle = def
dbtSQLQuery :: (E.SqlExpr (Entity StudyTerms)) -> E.SqlQuery ( E.SqlExpr (Entity StudyTerms)) dbtSQLQuery :: E.SqlExpr (Entity StudyTerms) -> E.SqlQuery ( E.SqlExpr (Entity StudyTerms))
dbtSQLQuery = return dbtSQLQuery = return
dbtRowKey = (E.^. StudyTermsKey) dbtRowKey = (E.^. StudyTermsKey)
dbtProj = return dbtProj = return
@ -264,7 +264,7 @@ postAdminFeaturesR = do
mkCandidateTable = mkCandidateTable =
let dbtIdent = "admin-termcandidate" :: Text let dbtIdent = "admin-termcandidate" :: Text
dbtStyle = def dbtStyle = def
dbtSQLQuery :: (E.SqlExpr (Entity StudyTermCandidate)) -> E.SqlQuery ( E.SqlExpr (Entity StudyTermCandidate)) dbtSQLQuery :: E.SqlExpr (Entity StudyTermCandidate) -> E.SqlQuery ( E.SqlExpr (Entity StudyTermCandidate))
dbtSQLQuery = return dbtSQLQuery = return
dbtRowKey = (E.^. StudyTermCandidateId) dbtRowKey = (E.^. StudyTermCandidateId)
dbtProj = return dbtProj = return

57
test/Database.hs
View File

@ -226,10 +226,59 @@ fillDb = do
sdMath = StudyTermsKey' 105 sdMath = StudyTermsKey' 105
sdMedi = StudyTermsKey' 121 sdMedi = StudyTermsKey' 121
sdPhys = StudyTermsKey' 128 sdPhys = StudyTermsKey' 128
repsert sdInf $ StudyTerms 79 (Just "IfI") (Just "Institut für Informatik") sdBioI1 = StudyTermsKey' 221
repsert sdMath $ StudyTerms 105 (Just "MI" ) (Just "Mathematisches Institut") sdBioI2 = StudyTermsKey' 228
repsert sdMedi $ StudyTerms 121 (Just "MnfI") Nothing -- intentionally left unknown sdBiol = StudyTermsKey' 26
repsert sdPhys $ StudyTerms 128 Nothing Nothing -- intentionally left unknown sdChem1 = StudyTermsKey' 61
sdChem2 = StudyTermsKey' 113
repsert sdInf $ StudyTerms 79 (Just "Inf") (Just "Informatik")
repsert sdMath $ StudyTerms 105 (Just "Math" ) (Just "Mathematik")
repsert sdMedi $ StudyTerms 121 Nothing (Just "Medieninformatik") -- intentionally left unknown
repsert sdPhys $ StudyTerms 128 Nothing Nothing -- intentionally left unknown
repsert sdBioI1 $ StudyTerms 221 Nothing Nothing -- intentionally left unknown
repsert sdBioI2 $ StudyTerms 228 Nothing Nothing -- intentionally left unknown
repsert sdBiol $ StudyTerms 26 Nothing Nothing -- intentionally left unknown
repsert sdChem1 $ StudyTerms 61 Nothing Nothing -- intentionally left unknown
repsert sdChem2 $ StudyTerms 113 Nothing Nothing -- intentionally left unknown
incidence1 <- liftIO getRandom
void . insert $ StudyTermCandidate incidence1 221 "Bioinformatik"
void . insert $ StudyTermCandidate incidence1 221 "Mathematik"
void . insert $ StudyTermCandidate incidence1 105 "Bioinformatik"
void . insert $ StudyTermCandidate incidence1 105 "Mathematik"
incidence2 <- liftIO getRandom
void . insert $ StudyTermCandidate incidence2 221 "Bioinformatik"
void . insert $ StudyTermCandidate incidence2 221 "Chemie"
void . insert $ StudyTermCandidate incidence2 61 "Bioinformatik"
void . insert $ StudyTermCandidate incidence2 61 "Chemie"
incidence3 <- liftIO getRandom
void . insert $ StudyTermCandidate incidence3 113 "Chemie"
incidence4 <- liftIO getRandom
void . insert $ StudyTermCandidate incidence4 221 "Bioinformatik"
void . insert $ StudyTermCandidate incidence4 221 "Chemie"
void . insert $ StudyTermCandidate incidence4 221 "Biologie"
void . insert $ StudyTermCandidate incidence4 61 "Bioinformatik"
void . insert $ StudyTermCandidate incidence4 61 "Chemie"
void . insert $ StudyTermCandidate incidence4 61 "Biologie"
void . insert $ StudyTermCandidate incidence4 61 "Chemie"
void . insert $ StudyTermCandidate incidence4 26 "Bioinformatik"
void . insert $ StudyTermCandidate incidence4 26 "Chemie"
void . insert $ StudyTermCandidate incidence4 26 "Biologie"
incidence5 <- liftIO getRandom
void . insert $ StudyTermCandidate incidence5 228 "Bioinformatik"
void . insert $ StudyTermCandidate incidence5 228 "Physik"
void . insert $ StudyTermCandidate incidence5 128 "Bioinformatik"
void . insert $ StudyTermCandidate incidence5 128 "Physik"
incidence6 <- liftIO getRandom
void . insert $ StudyTermCandidate incidence6 228 "Bioinformatik"
void . insert $ StudyTermCandidate incidence6 228 "Physik"
void . insert $ StudyTermCandidate incidence6 128 "Bioinformatik"
void . insert $ StudyTermCandidate incidence6 128 "Physik"
incidence7 <- liftIO getRandom
void . insert $ StudyTermCandidate incidence7 228 "Physik"
void . insert $ StudyTermCandidate incidence7 228 "Bioinformatik"
void . insert $ StudyTermCandidate incidence7 128 "Physik"
void . insert $ StudyTermCandidate incidence7 128 "Bioinformatik"
sfMMp <- insert $ StudyFeatures -- keyword type prevents record syntax here sfMMp <- insert $ StudyFeatures -- keyword type prevents record syntax here
maxMuster maxMuster
sdBsc sdBsc