diff options
Diffstat (limited to 'test')
| -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 1f1cc2e4d5..9319399ac2 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 |