diff options
| author | Griffin Smith <root@gws.fyi> | 2019-12-23T17·19-0500 |
|---|---|---|
| committer | Griffin Smith <root@gws.fyi> | 2019-12-23T22·22-0500 |
| commit | 052bc8455a99e7f1a90b6c9354e54cff10de02cc (patch) | |
| tree | 51b7ef3883804a0644d7cd242b228023e9624f69 /test/Xanthous | |
| parent | bf7d139c1a17fe55921fb807aa249e93288d3e4d (diff) | |
Add a drop command
Add a drop command, bound to 'd', which prompts the character for an item in their inventory, removes it from the inventory, and places it on the ground. Along the way I had to fix a bug in the `EntityMap.atPosition` lens, which was always appending to the existing entities at the position on set, without removing the entities that were already there - the rabbit hole of quickchecking the lens laws here also lead to replacing the target of this lens with a newtype called `VectorBag`, which ignores order (since the entitymap makes no guarantees about order of entities at a given position).
Diffstat (limited to 'test/Xanthous')
| -rw-r--r-- | test/Xanthous/Data/EntityMapSpec.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test/Xanthous/Data/EntityMapSpec.hs b/test/Xanthous/Data/EntityMapSpec.hs index 88e0d0d7712c..8317f5f51f8b 100644 --- a/test/Xanthous/Data/EntityMapSpec.hs +++ b/test/Xanthous/Data/EntityMapSpec.hs @@ -3,6 +3,7 @@ module Xanthous.Data.EntityMapSpec where -------------------------------------------------------------------------------- import Test.Prelude +import Control.Lens.Properties -------------------------------------------------------------------------------- import qualified Data.Aeson as JSON -------------------------------------------------------------------------------- @@ -45,4 +46,8 @@ test = localOption (QuickCheckTests 20) let Just em' = JSON.decode $ JSON.encode em in toEIDsAndPositioned em' === toEIDsAndPositioned em ] + + , testGroup "atPosition" + [ testProperty "lens laws" $ \pos -> isLens $ atPosition @Int pos + ] ] |