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

fix tests

Browse Source
This commit is contained in:
Gregor Kleen 2019-05-20 14:37:52 +02:00
parent 88b9110865
commit 8152b3b5ca
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test/Handler/Utils/SubmissionSpec.hs
View File

@ -9,7 +9,6 @@ import Handler.Utils.Submission
import ModelSpec ()
import qualified Data.Set as Set
import Data.Map ((!?))
import qualified Data.Map as Map
import Data.List (genericLength)
@ -21,7 +20,7 @@ import System.IO.Unsafe
import System.Random.Shuffle
import Control.Monad.Random.Class
import Database.Persist.Sql (toSqlKey, fromSqlKey)
import Database.Persist.Sql (fromSqlKey)
import qualified Database.Esqueleto as E
@ -180,7 +179,7 @@ spec = withApp . describe "Submission distribution" $ do
let countResult = Map.map Set.size result
countResult' = Map.mapKeysWith (+) (fmap $ \SheetCorrector{..} -> (fromSqlKey sheetCorrectorUser, byProportion sheetCorrectorLoad)) countResult
countResult' `shouldNotSatisfy` Map.member Nothing
countResult' `shouldSatisfy` all (\(Just (corr, prop), subsSet) -> fromIntegral subsSet == 50 * prop) . Map.toList
countResult' `shouldSatisfy` all (\(Just (_, prop), subsSet) -> fromIntegral subsSet == 50 * prop) . Map.toList
-- -- Does not currently work, because `User`s are reused within `distributionExample`, so submissions end up having more associated course-tutors, because the same user might be a member of a tutorial created for another submission
--