From 70ac685a5043a7b8ea9b72537dca8258198640c7 Mon Sep 17 00:00:00 2001 From: Akshay Nair Date: Sat, 21 Dec 2024 20:03:25 +0530 Subject: Minor refactor --- specs/Specs/AppEventSpec.hs | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'specs/Specs') 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 -- cgit v1.3.1