added EditPlayerMode

2019-11-01 04:25:25 -04:00
parent 5fd67f3802
commit c26c0f54d1
2 changed files with 26 additions and 2 deletions
--- a/test/TypesSpec.hs
+++ b/test/TypesSpec.hs
@@ -754,11 +754,16 @@ instance Comparable CreatePlayerState where
        actual^.cpsPosition `shouldBe` expected^.cpsPosition

 instance Comparable EditPlayerState where
-  compareTest actual expected =
+  compareTest actual expected = do
+
    describe "epsSelectedPlayer" $
      it ("should be " ++ show (expected^.epsSelectedPlayer)) $
        actual^.epsSelectedPlayer `shouldBe` expected^.epsSelectedPlayer

+    describe "epsMode" $
+      it ("should be " ++ show (expected^.epsMode)) $
+        actual^.epsMode `shouldBe` expected^.epsMode
+
 instance Comparable CreateGoalieState where
  compareTest actual expected = do