diff options
Diffstat (limited to '')
| -rw-r--r-- | specs/Mock.hs | 12 | ||||
| -rw-r--r-- | specs/Specs/AppStateUpdateSpec.hs | 54 |
2 files changed, 56 insertions, 10 deletions
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 |