From 8152b3b5cab0b091d2c4b3d60cbe207f3fbd5315 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Mon, 20 May 2019 14:37:52 +0200 Subject: [PATCH] fix tests --- test/Handler/Utils/SubmissionSpec.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/test/Handler/Utils/SubmissionSpec.hs b/test/Handler/Utils/SubmissionSpec.hs index 763c40b14..32aba67df 100644 --- a/test/Handler/Utils/SubmissionSpec.hs +++ b/test/Handler/Utils/SubmissionSpec.hs @@ -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 --