aboutsummaryrefslogtreecommitdiff
path: root/specs/Specs
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--specs/Specs/AppStateUpdateSpec.hs42
-rw-r--r--specs/Specs/ViewSpec.hs26
2 files changed, 34 insertions, 34 deletions
diff --git a/specs/Specs/AppStateUpdateSpec.hs b/specs/Specs/AppStateUpdateSpec.hs
index 59b686a..67f6fb2 100644
--- a/specs/Specs/AppStateUpdateSpec.hs
+++ b/specs/Specs/AppStateUpdateSpec.hs
@@ -4,9 +4,9 @@ import Chelleport (initialState, update)
import Chelleport.Types
import Chelleport.Utils (intToCInt, uniq)
import Control.Monad (join)
-import Mock
import qualified SDL
import Test.Hspec
+import TestUtils
test :: SpecWith ()
test = do
@@ -71,7 +71,7 @@ test = do
it "hides window and triggers mouse click" $ do
(_, mock) <- runWithMocks $ update currentState $ TriggerMouseClick LeftClick
- calls mock `shouldContain` [CallHideWindow, CallClickMouseButton LeftClick]
+ calls mock `shouldContain` [Mock_hideWindow, Mock_clickMouseButton LeftClick]
it "continues with action ShutdownApp without updating state" $ do
((nextState, action), _) <- runWithMocks $ update currentState $ TriggerMouseClick LeftClick
@@ -88,10 +88,10 @@ test = do
it "clicks multiple times" $ do
(_, mock) <- runWithMocks $ update currentState $ TriggerMouseClick LeftClick
calls mock
- `shouldBe` [ CallHideWindow,
- CallClickMouseButton LeftClick,
- CallClickMouseButton LeftClick,
- CallClickMouseButton LeftClick
+ `shouldBe` [ Mock_hideWindow,
+ Mock_clickMouseButton LeftClick,
+ Mock_clickMouseButton LeftClick,
+ Mock_clickMouseButton LeftClick
]
context "when repetition is 0" $ do
@@ -99,14 +99,14 @@ test = do
it "clicks just once" $ do
(_, mock) <- runWithMocks $ update currentState $ TriggerMouseClick LeftClick
- calls mock `shouldBe` [CallHideWindow, CallClickMouseButton LeftClick]
+ calls mock `shouldBe` [Mock_hideWindow, Mock_clickMouseButton LeftClick]
context "with action ChainMouseClick" $ do
let currentState = defaultState
it "hides window, triggers mouse click and shows the window again" $ do
(_, mock) <- runWithMocks $ update currentState $ ChainMouseClick LeftClick
- calls mock `shouldBe` [CallHideWindow, CallClickMouseButton LeftClick, CallShowWindow]
+ calls mock `shouldBe` [Mock_hideWindow, Mock_clickMouseButton LeftClick, Mock_showWindow]
it "continues with action ResetKeys without updating state" $ do
((nextState, action), _) <- runWithMocks $ update currentState $ ChainMouseClick LeftClick
@@ -123,11 +123,11 @@ test = do
it "clicks multiple times" $ do
(_, mock) <- runWithMocks $ update currentState $ ChainMouseClick LeftClick
calls mock
- `shouldBe` [ CallHideWindow,
- CallClickMouseButton LeftClick,
- CallClickMouseButton LeftClick,
- CallClickMouseButton LeftClick,
- CallShowWindow
+ `shouldBe` [ Mock_hideWindow,
+ Mock_clickMouseButton LeftClick,
+ Mock_clickMouseButton LeftClick,
+ Mock_clickMouseButton LeftClick,
+ Mock_showWindow
]
context "when repetition is 0" $ do
@@ -135,7 +135,7 @@ test = do
it "clicks just once" $ do
(_, mock) <- runWithMocks $ update currentState $ ChainMouseClick LeftClick
- calls mock `shouldBe` [CallHideWindow, CallClickMouseButton LeftClick, CallShowWindow]
+ calls mock `shouldBe` [Mock_hideWindow, Mock_clickMouseButton LeftClick, Mock_showWindow]
context "with action MouseDragToggle" $ do
context "when is dragging is true" $ do
@@ -165,7 +165,7 @@ test = do
it "hides window, starts dragging and shows the window again" $ do
(_, mock) <- runWithMocks $ update currentState MouseDragStart
- calls mock `shouldContain` [CallHideWindow, CallPressMouseButton, CallShowWindow]
+ calls mock `shouldContain` [Mock_hideWindow, Mock_pressMouseButton, Mock_showWindow]
it "does not continue or update state" $ do
(result, _) <- runWithMocks $ update currentState MouseDragStart
@@ -176,7 +176,7 @@ test = do
it "hides window, stops dragging and shows the window again" $ do
(_, mock) <- runWithMocks $ update currentState MouseDragEnd
- calls mock `shouldContain` [CallHideWindow, CallReleaseMouseButton, CallShowWindow]
+ calls mock `shouldContain` [Mock_hideWindow, Mock_releaseMouseButton, Mock_showWindow]
it "does not continue or update state" $ do
(result, _) <- runWithMocks $ update currentState MouseDragStart
@@ -191,7 +191,7 @@ test = do
it "moves mouse pointer to center of cell of given coordinates" $ do
(_, mock) <- runWithMocks $ update currentState $ MoveMousePosition (0, 0)
mock
- `shouldHaveCalled` CallMoveMousePosition
+ `shouldHaveCalled` Mock_moveMousePointer
(mockWindowOffsetX + mockWindowWidth `div` columns `div` 2)
(mockWindowOffsetY + mockWindowHeight `div` rows `div` 2)
@@ -213,7 +213,7 @@ test = do
-- TODO: Test with inline mocked values
it "increments mouse position relative to current position" $ do
(_, mock) <- runWithMocks $ update currentState $ IncrementMouseCursor (10, -5)
- mock `shouldHaveCalled` CallMoveMousePosition 52 37
+ mock `shouldHaveCalled` Mock_moveMousePointer 52 37
it "does not continue or update state" $ do
(result, _) <- runWithMocks $ update currentState $ IncrementMouseCursor (0, 0)
@@ -224,21 +224,21 @@ test = do
it "multiplies increment" $ do
(_, mock) <- runWithMocks $ update currentState $ IncrementMouseCursor (10, -5)
- mock `shouldHaveCalled` CallMoveMousePosition 92 17
+ mock `shouldHaveCalled` Mock_moveMousePointer 92 17
context "when repetition is 0" $ do
let currentState = defaultState {stateRepetition = 0}
it "increments just once" $ do
(_, mock) <- runWithMocks $ update currentState $ IncrementMouseCursor (10, -5)
- mock `shouldHaveCalled` CallMoveMousePosition 52 37
+ mock `shouldHaveCalled` Mock_moveMousePointer 52 37
context "with action ShutdownApp" $ do
let currentState = defaultState
it "shuts down app" $ do
(_, mock) <- runWithMocks $ update currentState ShutdownApp
- mock `shouldHaveCalled` CallShutdownApp
+ mock `shouldHaveCalled` Mock_shutdownApp
it "does not continue or update state" $ do
(result, _) <- runWithMocks $ update currentState ShutdownApp
diff --git a/specs/Specs/ViewSpec.hs b/specs/Specs/ViewSpec.hs
index 285c297..7bca567 100644
--- a/specs/Specs/ViewSpec.hs
+++ b/specs/Specs/ViewSpec.hs
@@ -3,8 +3,8 @@ module Specs.ViewSpec where
import Chelleport.Config
import Chelleport.Types
import Chelleport.View
-import Mock
import Test.Hspec
+import TestUtils
test :: SpecWith ()
test = do
@@ -17,7 +17,7 @@ test = do
stateRepetition = 1,
stateIsDragging = False
}
- let drawTextCalls = filter (\case CallDrawText {} -> True; _ -> False) . calls
+ let drawTextCalls = filter (\case Mock_drawText {} -> True; _ -> False) . calls
describe "#render" $ do
context "when key sequence is empty" $ do
@@ -26,10 +26,10 @@ test = do
it "draws matching text labels" $ do
(_, mock) <- runWithMocks $ render currentState
drawTextCalls mock
- `shouldBe` [ CallDrawText (460, 10) colorWhite "ABC",
- CallDrawText (1420, 10) colorWhite "DEF",
- CallDrawText (460, 550) colorWhite "DJK",
- CallDrawText (1420, 550) colorWhite "JKL"
+ `shouldBe` [ Mock_drawText (460, 10) colorWhite "ABC",
+ Mock_drawText (1420, 10) colorWhite "DEF",
+ Mock_drawText (460, 550) colorWhite "DJK",
+ Mock_drawText (1420, 550) colorWhite "JKL"
]
context "when there is a partial match" $ do
@@ -38,10 +38,10 @@ test = do
it "draws matching text labels" $ do
(_, mock) <- runWithMocks $ render currentState
drawTextCalls mock
- `shouldBe` [ CallDrawText (1420, 10) colorLightGray "D",
- CallDrawText (1430, 10) colorAccent "EF",
- CallDrawText (460, 550) colorLightGray "D",
- CallDrawText (470, 550) colorAccent "JK"
+ `shouldBe` [ Mock_drawText (1420, 10) colorLightGray "D",
+ Mock_drawText (1430, 10) colorAccent "EF",
+ Mock_drawText (460, 550) colorLightGray "D",
+ Mock_drawText (470, 550) colorAccent "JK"
]
context "when key sequence is complete match" $ do
@@ -49,14 +49,14 @@ test = do
it "draws only the matching label" $ do
(_, mock) <- runWithMocks $ render currentState
- drawTextCalls mock `shouldBe` [CallDrawText (1420, 10) colorLightGray "DEF"]
+ drawTextCalls mock `shouldBe` [Mock_drawText (1420, 10) colorLightGray "DEF"]
describe "#renderKeySequence" $ do
context "when there is a partial match" $ do
it "draws the matched section and highlights the remaining characters" $ do
(_, mock) <- runWithMocks $ renderKeySequence "ABC" "ABCDE" (0, 0)
calls mock
- `shouldBe` [CallDrawText (0, 0) colorLightGray "ABC", CallDrawText (3 * 10, 0) colorAccent "DE"]
+ `shouldBe` [Mock_drawText (0, 0) colorLightGray "ABC", Mock_drawText (3 * 10, 0) colorAccent "DE"]
it "return true as the text is visible" $ do
(isVisible, _) <- runWithMocks $ renderKeySequence "ABC" "ABCDE" (0, 0)
@@ -65,7 +65,7 @@ test = do
context "when there is no input key sequence" $ do
it "draws text as a single chunk" $ do
(_, mock) <- runWithMocks $ renderKeySequence "" "ABCD" (0, 0)
- calls mock `shouldBe` [CallDrawText (0, 0) colorWhite "ABCD"]
+ calls mock `shouldBe` [Mock_drawText (0, 0) colorWhite "ABCD"]
it "return true as the text is visible" $ do
(isVisible, _) <- runWithMocks $ renderKeySequence "" "ABCD" (0, 0)