diff options
| author | Griffin Smith <root@gws.fyi> | 2019-09-02T14·36-0400 |
|---|---|---|
| committer | Griffin Smith <root@gws.fyi> | 2019-09-02T14·52-0400 |
| commit | 18551cdf30c0a13bce40fae9be829e5318612e71 (patch) | |
| tree | abb2c73133a4ae99852bd5865c78b4c301943d05 /test/Xanthous/GameSpec.hs | |
| parent | adb3b74c0c3a3bffa0d47f52036fde3623f859f7 (diff) | |
Add a previous message command
Add a "previous message" command, triggered via ctrl+p. I attempted here to get the message area to still take up a row of space post-hiding the message, but failed - should revisit that at some point
Diffstat (limited to 'test/Xanthous/GameSpec.hs')
| -rw-r--r-- | test/Xanthous/GameSpec.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/Xanthous/GameSpec.hs b/test/Xanthous/GameSpec.hs index 1f1cc2e4d55e..9319399ac25f 100644 --- a/test/Xanthous/GameSpec.hs +++ b/test/Xanthous/GameSpec.hs @@ -15,8 +15,8 @@ test = testGroup "Xanthous.Game" [ testGroup "positionedCharacter" [ testProperty "lens laws" $ isLens positionedCharacter , testCase "updates the position of the character" $ do - let initialGame = getInitialState - initialPos = initialGame ^. characterPosition + initialGame <- getInitialState + let initialPos = initialGame ^. characterPosition updatedGame = initialGame & characterPosition %~ move Down updatedPos = updatedGame ^. characterPosition updatedPos @?= move Down initialPos |