fingerprint/mtlstats
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix ProgMode comparison failure

Browse Source
This commit is contained in:
Jonathan Lamothe 2020-05-01 22:43:16 -04:00 committed by Jonathan Lamothe
parent 174b636499
commit e3922ed059
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
test/TypesSpec.hs
View File

@ -38,7 +38,14 @@ import qualified Data.HashMap.Strict as HM
import Data.Ratio ((%)) import Data.Ratio ((%))
import Lens.Micro (Lens', (&), (^.), (.~), (?~)) import Lens.Micro (Lens', (&), (^.), (.~), (?~))
import System.Random (randomIO, randomRIO) import System.Random (randomIO, randomRIO)
import Test.Hspec (Spec, context, describe, it, shouldBe) import Test.Hspec
( Spec
, context
, describe
, expectationFailure
, it
, shouldBe
)
import Mtlstats.Config import Mtlstats.Config
import Mtlstats.Types import Mtlstats.Types
@ -1014,7 +1021,8 @@ instance Comparable ProgMode where
context "EditStandings EditStandingsMode" $ context "EditStandings EditStandingsMode" $
act `compareTest` expect act `compareTest` expect
compareTest _ _ = fail "ProgMode mismatch" compareTest _ _ = it "should be the expected mode" $
expectationFailure "ProgMode mismatch"
instance Comparable GameState where instance Comparable GameState where
compareTest act expect = do compareTest act expect = do