diff options
Diffstat (limited to 'specs/Specs/AppEventSpec.hs')
| -rw-r--r-- | specs/Specs/AppEventSpec.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/specs/Specs/AppEventSpec.hs b/specs/Specs/AppEventSpec.hs index 9ac9d4c..18e685b 100644 --- a/specs/Specs/AppEventSpec.hs +++ b/specs/Specs/AppEventSpec.hs @@ -31,11 +31,6 @@ test = do let action = eventHandler $ mkEvent SDL.QuitEvent action `shouldBe` Just ShutdownApp - context "when q key is pressed" $ do - it "shuts down app" $ do - let action = eventHandler $ mkKeyboardEvent SDL.KeycodeQ SDL.Pressed - action `shouldBe` Just ShutdownApp - context "when escape key is pressed" $ do it "shuts down app" $ do let action = eventHandler $ mkKeyboardEvent SDL.KeycodeEscape SDL.Pressed @@ -54,7 +49,7 @@ test = do context "when an alphanumeric key (excluding Q) is pressed" $ do it "calls key input handler" $ do eventHandler (mkKeyboardEvent SDL.KeycodeA SDL.Pressed) `shouldBe` Just (HandleKeyInput SDL.KeycodeA) - eventHandler (mkKeyboardEvent SDL.KeycodeB SDL.Pressed) `shouldBe` Just (HandleKeyInput SDL.KeycodeB) + eventHandler (mkKeyboardEvent SDL.KeycodeQ SDL.Pressed) `shouldBe` Just (HandleKeyInput SDL.KeycodeQ) eventHandler (mkKeyboardEvent SDL.Keycode9 SDL.Pressed) `shouldBe` Just (HandleKeyInput SDL.Keycode9) context "when shift key is pressed" $ do |