diff options
| author | Akshay Nair <phenax5@gmail.com> | 2024-12-21 20:03:25 +0530 |
|---|---|---|
| committer | Akshay Nair <phenax5@gmail.com> | 2024-12-21 20:03:25 +0530 |
| commit | 70ac685a5043a7b8ea9b72537dca8258198640c7 (patch) | |
| tree | b0e67fd2868cd17354f4b0861caca716d6b9d7ee /specs | |
| parent | 87815edbab70302793fb83259fedc1ae9004d172 (diff) | |
| download | chelleport-70ac685a5043a7b8ea9b72537dca8258198640c7.tar.gz chelleport-70ac685a5043a7b8ea9b72537dca8258198640c7.zip | |
Minor refactor
Diffstat (limited to 'specs')
| -rw-r--r-- | specs/Specs/AppEventSpec.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/specs/Specs/AppEventSpec.hs b/specs/Specs/AppEventSpec.hs index 9da4c87..390fbc2 100644 --- a/specs/Specs/AppEventSpec.hs +++ b/specs/Specs/AppEventSpec.hs @@ -37,6 +37,11 @@ test = do let action = eventHandler $ mkKeyboardEvent SDL.KeycodeEscape SDL.Pressed defaultMod action `shouldBe` Just ShutdownApp + context "when ctrl+v is pressed" $ do + it "toggles dragging" $ do + let action = eventHandler $ mkKeyboardEvent SDL.KeycodeV SDL.Pressed (defaultMod {SDL.keyModifierLeftCtrl = True}) + action `shouldBe` Just MouseDragToggle + context "when space key is pressed" $ do it "triggers left mouse button click" $ do let action = eventHandler $ mkKeyboardEvent SDL.KeycodeSpace SDL.Pressed defaultMod |