From 217f38ad33811c88c63ff4c0be387e67fb0cd68a Mon Sep 17 00:00:00 2001
From: Akshay Nair <phenax5@gmail.com>
Date: Sat, 21 Dec 2024 13:48:31 +0530
Subject: Add C-v to drag n drop within the grid

---
 specs/Mock.hs                     | 12 ++++-----
 specs/Specs/AppStateUpdateSpec.hs | 54 ++++++++++++++++++++++++++++++++++++---
 2 files changed, 56 insertions(+), 10 deletions(-)

(limited to 'specs')

diff --git a/specs/Mock.hs b/specs/Mock.hs
index 5644a06..c44aff3 100644
--- a/specs/Mock.hs
+++ b/specs/Mock.hs
@@ -17,10 +17,10 @@ data Call
   | CallDrawText (CInt, CInt) Color Text
   | CallGetMousePointerPosition
   | CallHideWindow
-  | CallMouseButtonDown
-  | CallMouseButtonUp
+  | CallPressMouseButton
+  | CallReleaseMouseButton
   | CallMoveMousePosition CInt CInt
-  | CallPressMouseButton MouseButtonType
+  | CallClickMouseButton MouseButtonType
   | CallSetDrawColor Color
   | CallShowWindow
   | CallShutdownApp
@@ -45,11 +45,11 @@ newtype TestM m a = TestM {runTestM :: StateT MockCalls m a}
   deriving (Functor, Applicative, Monad, MonadIO, MonadState MockCalls)
 
 instance (MonadIO m) => MonadControl (TestM m) where
-  pressMouseButton btn = registerMockCall $ CallPressMouseButton btn
+  clickMouseButton btn = registerMockCall $ CallClickMouseButton btn
   moveMousePointer x y = registerMockCall $ CallMoveMousePosition x y
   getMousePointerPosition = (42, 42) <$ registerMockCall CallGetMousePointerPosition
-  mouseButtonDown = registerMockCall CallMouseButtonDown
-  mouseButtonUp = registerMockCall CallMouseButtonUp
+  pressMouseButton = registerMockCall CallPressMouseButton
+  releaseMouseButton = registerMockCall CallReleaseMouseButton
 
 mockWindowWidth :: CInt
 mockWindowWidth = 1920
diff --git a/specs/Specs/AppStateUpdateSpec.hs b/specs/Specs/AppStateUpdateSpec.hs
index fd79c95..7c03f1a 100644
--- a/specs/Specs/AppStateUpdateSpec.hs
+++ b/specs/Specs/AppStateUpdateSpec.hs
@@ -33,7 +33,8 @@ test = do
             { stateKeySequence = [],
               stateIsShiftPressed = False,
               stateIsMatched = False,
-              stateGrid = [["ABC", "DEF"], ["DJK", "JKL"]]
+              stateGrid = [["ABC", "DEF"], ["DJK", "JKL"]],
+              stateIsDragging = False
             }
 
     context "with action HandleKeyInput" $ do
@@ -69,7 +70,7 @@ test = do
 
       it "hides window and triggers mouse click" $ do
         (_, mock) <- runWithMocks $ update currentState $ TriggerMouseClick LeftClick
-        calls mock `shouldContain` [CallHideWindow, CallPressMouseButton LeftClick]
+        calls mock `shouldContain` [CallHideWindow, CallClickMouseButton LeftClick]
 
       it "continues with action ShutdownApp without updating state" $ do
         ((nextState, action), _) <- runWithMocks $ update currentState $ TriggerMouseClick LeftClick
@@ -81,13 +82,58 @@ test = do
 
       it "hides window, triggers mouse click and shows the window again" $ do
         (_, mock) <- runWithMocks $ update currentState $ ChainMouseClick LeftClick
-        calls mock `shouldBe` [CallHideWindow, CallPressMouseButton LeftClick, CallShowWindow]
+        calls mock `shouldBe` [CallHideWindow, CallClickMouseButton LeftClick, CallShowWindow]
 
       it "continues with action ResetKeys without updating state" $ do
         ((nextState, action), _) <- runWithMocks $ update currentState $ ChainMouseClick LeftClick
         action `shouldBe` Just ResetKeys
         nextState `shouldBe` currentState
 
+    context "with action MouseDragToggle" $ do
+      context "when is dragging is true" $ do
+        let currentState = defaultState {stateIsDragging = True}
+
+        it "toggles dragging state" $ do
+          ((state, _), _) <- runWithMocks $ update currentState MouseDragToggle
+          state `shouldBe` state {stateIsDragging = False}
+
+        it "continues with action MouseDragEnd" $ do
+          ((_, action), _) <- runWithMocks $ update currentState MouseDragToggle
+          action `shouldBe` Just MouseDragEnd
+
+      context "when is dragging is false" $ do
+        let currentState = defaultState {stateIsDragging = False}
+
+        it "toggles dragging state" $ do
+          ((state, _), _) <- runWithMocks $ update currentState MouseDragToggle
+          state `shouldBe` state {stateIsDragging = True}
+
+        it "continues with action MouseDragStart" $ do
+          ((_, action), _) <- runWithMocks $ update currentState MouseDragToggle
+          action `shouldBe` Just MouseDragStart
+
+    context "with action MouseDragStart" $ do
+      let currentState = defaultState
+
+      it "hides window, starts dragging and shows the window again" $ do
+        (_, mock) <- runWithMocks $ update currentState MouseDragStart
+        calls mock `shouldContain` [CallHideWindow, CallPressMouseButton, CallShowWindow]
+
+      it "does not continue or update state" $ do
+        (result, _) <- runWithMocks $ update currentState MouseDragStart
+        result `shouldBe` (currentState, Nothing)
+
+    context "with action MouseDragEnd" $ do
+      let currentState = defaultState
+
+      it "hides window, stops dragging and shows the window again" $ do
+        (_, mock) <- runWithMocks $ update currentState MouseDragEnd
+        calls mock `shouldContain` [CallHideWindow, CallReleaseMouseButton, CallShowWindow]
+
+      it "does not continue or update state" $ do
+        (result, _) <- runWithMocks $ update currentState MouseDragStart
+        result `shouldBe` (currentState, Nothing)
+
     context "with action MoveMousePosition" $ do
       let currentState = defaultState
       let rows = intToCInt $ length $ stateGrid currentState
@@ -97,7 +143,7 @@ test = do
       it "moves mouse pointer to center of cell of given coordinates" $ do
         (_, mock) <- runWithMocks $ update currentState $ MoveMousePosition (0, 0)
         -- handleMocks
-        --   [ CallPressMouseButton LeftClick `returns` (1, 2),
+        --   [ CallClickMouseButton LeftClick `returns` (1, 2),
         --     CallHideWindow `returns` ()
         --   ]
         mock
-- 
cgit v1.3.1