diff options
Diffstat (limited to 'specs/Specs')
| -rw-r--r-- | specs/Specs/AppStateUpdateSpec.hs | 3 | ||||
| -rw-r--r-- | specs/Specs/ViewSpec.hs | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/specs/Specs/AppStateUpdateSpec.hs b/specs/Specs/AppStateUpdateSpec.hs index 67f6fb2..e54f50f 100644 --- a/specs/Specs/AppStateUpdateSpec.hs +++ b/specs/Specs/AppStateUpdateSpec.hs @@ -35,7 +35,8 @@ test = do stateIsMatched = False, stateGrid = [["ABC", "DEF"], ["DJK", "JKL"]], stateRepetition = 1, - stateIsDragging = False + stateIsDragging = False, + stateMode = ModeHints } context "with action HandleKeyInput" $ do diff --git a/specs/Specs/ViewSpec.hs b/specs/Specs/ViewSpec.hs index 7bca567..b8418d6 100644 --- a/specs/Specs/ViewSpec.hs +++ b/specs/Specs/ViewSpec.hs @@ -15,7 +15,8 @@ test = do stateIsMatched = False, stateGrid = [["ABC", "DEF"], ["DJK", "JKL"]], stateRepetition = 1, - stateIsDragging = False + stateIsDragging = False, + stateMode = ModeHints } let drawTextCalls = filter (\case Mock_drawText {} -> True; _ -> False) . calls |