From 6b0bab0e85266ce66836c4584f8cc83b307a3af5 Mon Sep 17 00:00:00 2001 From: Griffin Smith Date: Sat, 4 Jan 2020 23:48:51 -0500 Subject: Add support for multiple levels Add a data structure, based on the zipper comonad, which provides support for multiple levels, each of which is its own entity map. The current level is provided by coreturn, which the `entities` lens has been updated to use. Nothing currently supports going up or down levels yet - that's coming next. --- test/Spec.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'test/Spec.hs') diff --git a/test/Spec.hs b/test/Spec.hs index 8141b83e9771..ba8f868a8172 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -1,7 +1,10 @@ -import Test.Prelude +-------------------------------------------------------------------------------- +import Test.Prelude +-------------------------------------------------------------------------------- import qualified Xanthous.Data.EntityCharSpec import qualified Xanthous.Data.EntityMapSpec import qualified Xanthous.Data.EntityMap.GraphicsSpec +import qualified Xanthous.Data.LevelsSpec import qualified Xanthous.DataSpec import qualified Xanthous.Entities.RawsSpec import qualified Xanthous.GameSpec @@ -12,6 +15,7 @@ import qualified Xanthous.Util.GraphicsSpec import qualified Xanthous.Util.GraphSpec import qualified Xanthous.Util.InflectionSpec import qualified Xanthous.UtilSpec +-------------------------------------------------------------------------------- main :: IO () main = defaultMain test @@ -21,6 +25,7 @@ test = testGroup "Xanthous" [ Xanthous.Data.EntityCharSpec.test , Xanthous.Data.EntityMapSpec.test , Xanthous.Data.EntityMap.GraphicsSpec.test + , Xanthous.Data.LevelsSpec.test , Xanthous.Entities.RawsSpec.test , Xanthous.GameSpec.test , Xanthous.Generators.UtilSpec.test -- cgit 1.4.1