From 5dc3696f38433c79939bb182c4590a6ce04f4c63 Mon Sep 17 00:00:00 2001 From: Akshay Nair Date: Thu, 19 Dec 2024 22:40:41 +0530 Subject: Test mock setup for update + 1 spec for update case --- specs/Specs/AppStateUpdateSpec.hs | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 specs/Specs/AppStateUpdateSpec.hs (limited to 'specs/Specs/AppStateUpdateSpec.hs') diff --git a/specs/Specs/AppStateUpdateSpec.hs b/specs/Specs/AppStateUpdateSpec.hs new file mode 100644 index 0000000..0b5cac0 --- /dev/null +++ b/specs/Specs/AppStateUpdateSpec.hs @@ -0,0 +1,20 @@ +module Specs.AppStateUpdateSpec where + +import Chelleport (update) +import Chelleport.Types +import Mock +import Test.Hspec + +test = do + describe "#update" $ do + context "with action TriggerLeftClick" $ do + let state = State {stateKeySequence = [], stateIsShiftPressed = False, stateIsMatched = False, stateGrid = []} + + it "hides window and triggers left clicks" $ do + (_, mock) <- runWithMocks $ update state TriggerLeftClick + calls mock `shouldContain` [CallHideWindow, CallPressMouseButton LeftClick] + + it "continues with action ShutdownApp without updating state" $ do + ((state, action), mock) <- runWithMocks $ update state TriggerLeftClick + action `shouldBe` Just ShutdownApp + state `shouldBe` state -- cgit v1.3.1