wip: switching from ncurses to brick

test/ActionsSpec.hs

@@ -63,8 +63,6 @@ spec = describe "Mtlstats.Actions" $ do
   resetCreatePlayerStateSpec
   resetCreateGoalieStateSpec
   backHomeSpec
-  scrollUpSpec
-  scrollDownSpec
   NewGame.spec
   EditStandings.spec
 
@@ -425,7 +423,6 @@ backHomeSpec = describe "backHome" $ do
     input = newProgState
       & progMode.gameStateL .~ newGameState
       & inputBuffer         .~ "foo"
-      & scrollOffset        .~ 123
     result = backHome input
 
   it "should set the program mode back to MainMenu" $
@@ -435,33 +432,3 @@ backHomeSpec = describe "backHome" $ do
 
   it "should clear the input buffer" $
     result^.inputBuffer `shouldBe` ""
-
-  it "should reset the scroll offset" $
-    result^.scrollOffset `shouldBe` 0
-
-scrollUpSpec :: Spec
-scrollUpSpec = describe "scrollUp" $ do
-
-  context "scrolled down" $
-    it "should decrease the scroll offset by one" $ let
-      ps  = newProgState & scrollOffset .~ 10
-      ps' = scrollUp ps
-      in ps'^.scrollOffset `shouldBe` 9
-
-  context "at top" $
-    it "should keep the scroll offset at zero" $ let
-      ps = scrollUp newProgState
-      in ps^.scrollOffset `shouldBe` 0
-
-  context "above top" $
-    it "should return the scroll offset to zero" $ let
-      ps  = newProgState & scrollOffset .~ (-10)
-      ps' = scrollUp ps
-      in ps'^.scrollOffset `shouldBe` 0
-
-scrollDownSpec :: Spec
-scrollDownSpec = describe "scrollDown" $
-  it "should increase the scroll offset" $ let
-    ps  = newProgState & scrollOffset .~ 10
-    ps' = scrollDown ps
-    in ps'^.scrollOffset `shouldBe` 11