Entities inside a wall can't see anything

The test for "one step in each cardinal direction is always visible" was
giving a false-negative for an entity at the same position as a wall -
not only is this something that would ostensibly never happen, it's also
completely reasonable to assume that someone stuck in a wall (due to a
bad teleport perhaps?) wouldn't be able to see anything, on account of
their head being INSIDE A WALL.

1 files changed, 1 insertions, 0 deletions

diff --git a/test/Xanthous/Data/EntityMap/GraphicsSpec.hs b/test/Xanthous/Data/EntityMap/GraphicsSpec.hs
index 55ae0d79dbb8..fd37548ce864 100644
--- a/test/Xanthous/Data/EntityMap/GraphicsSpec.hs
+++ b/test/Xanthous/Data/EntityMap/GraphicsSpec.hs
@@ -19,6 +19,7 @@ test = testGroup "Xanthous.Data.EntityMap.Graphics"
   [ testGroup "visiblePositions"
     [ testProperty "one step in each cardinal direction is always visible"
       $ \pos (Cardinal dir) (Positive r) (wallPositions :: Set Position)->
+          pos `notMember` wallPositions ==>
           let em = review _EntityMap . map (, Wall) . toList $ wallPositions
               em' = em & atPosition (move dir pos) %~ (Wall <|)
               poss = visiblePositions pos r em'