diff options
Diffstat (limited to '')
| -rw-r--r-- | specs/Specs/AppEventSpec.hs | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/specs/Specs/AppEventSpec.hs b/specs/Specs/AppEventSpec.hs index e643958..98509de 100644 --- a/specs/Specs/AppEventSpec.hs +++ b/specs/Specs/AppEventSpec.hs @@ -2,6 +2,7 @@ module Specs.AppEventSpec where import Chelleport (eventHandler) import Chelleport.Types +import Data.Default (Default (def)) import qualified SDL import SDL.Internal.Numbered (FromNumber (fromNumber)) import Test.Hspec @@ -26,7 +27,7 @@ test = do SDL.keyboardEventKeyMotion = motion } let defaultMod = fromNumber 0 - let currentState = defaultAppState + let currentState = def context "when window quit event is triggered" $ do it "shuts down app" $ do @@ -58,6 +59,21 @@ test = do let action = eventHandler currentState $ mkKeyboardEvent SDL.KeycodeSpace SDL.Pressed (defaultMod {SDL.keyModifierLeftShift = True}) action `shouldBe` Just (ChainMouseClick LeftClick) + context "when enter key is pressed" $ do + it "triggers left mouse button click" $ do + let action = eventHandler currentState $ mkKeyboardEvent SDL.KeycodeReturn SDL.Pressed defaultMod + action `shouldBe` Just (TriggerMouseClick LeftClick) + + context "when pressed with right shift" $ do + it "chains left mouse button click" $ do + let action = eventHandler currentState $ mkKeyboardEvent SDL.KeycodeReturn SDL.Pressed (defaultMod {SDL.keyModifierRightShift = True}) + action `shouldBe` Just (ChainMouseClick LeftClick) + + context "when pressed with left shift" $ do + it "chains left mouse button click" $ do + let action = eventHandler currentState $ mkKeyboardEvent SDL.KeycodeReturn SDL.Pressed (defaultMod {SDL.keyModifierLeftShift = True}) + action `shouldBe` Just (ChainMouseClick LeftClick) + context "when minus key is pressed" $ do it "triggers left mouse button click" $ do let action = eventHandler currentState $ mkKeyboardEvent SDL.KeycodeMinus SDL.Pressed defaultMod |