From 496c7d048df6a9a3650c0a0b996888decb4ea9d1 Mon Sep 17 00:00:00 2001 From: Akshay Nair Date: Fri, 20 Dec 2024 19:51:08 +0530 Subject: Add shift+click to chain clicks in sequence --- specs/Specs/AppEventSpec.hs | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'specs/Specs/AppEventSpec.hs') 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 -- cgit v1.3.1