Add c-hjkl for movement keys

1 files changed, 20 insertions, 0 deletions

diff --git a/specs/Specs/AppStateSpec.hs b/specs/Specs/AppStateSpec.hs
index eb5ab1b..7eeb082 100644
--- a/specs/Specs/AppStateSpec.hs
+++ b/specs/Specs/AppStateSpec.hs
@@ -175,6 +175,26 @@ test = do
               ((_, action), _) <- runWithMocks $ update currentState $ HandleKeyInput SDL.KeycodeF
               action `shouldBe` Just (MoveMousePosition (1640, 370))
 
+    context "with action MoveMouseInDirection" $ do
+      let currentState = defaultState
+
+      context "when direction is up" $ do
+        it "continues to increment movement" $ do
+          ((_, action), _) <- runWithMocks $ update currentState $ MoveMouseInDirection DirUp
+          action `shouldBe` Just (IncrementMouseCursor (0, -33))
+      context "when direction is down" $ do
+        it "continues to increment movement" $ do
+          ((_, action), _) <- runWithMocks $ update currentState $ MoveMouseInDirection DirDown
+          action `shouldBe` Just (IncrementMouseCursor (0, 33))
+      context "when direction is left" $ do
+        it "continues to increment movement" $ do
+          ((_, action), _) <- runWithMocks $ update currentState $ MoveMouseInDirection DirLeft
+          action `shouldBe` Just (IncrementMouseCursor (-60, 0))
+      context "when direction is right" $ do
+        it "continues to increment movement" $ do
+          ((_, action), _) <- runWithMocks $ update currentState $ MoveMouseInDirection DirRight
+          action `shouldBe` Just (IncrementMouseCursor (60, 0))
+
     context "with action MoveMousePosition" $ do
       let currentState = defaultState